Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphi Êý×éÈçºÎ¶¯Ì¬Ôö¼Ó

//ÏÂÃæÊÇÒ»¼Ç¼£¬ÈýÎ¬×ø±ê
type
  Tposition  = record
    x:integer;
    y:integer;
    z:integer;
  end;

//======ÏÂÃæÊÇÒªÔÚÒ»¸öÑ­»·Öж¯Ì¬µØÔö¼ÓÈýÎ¬×ø±êÊý¾ÝµÄ³¤¶È
//ÇëÎÊÈçºÎд»á¸ßЧ¡£
produce getposition(Sender: TObject)
var

position:array of record;

begin
¡£¡£¡£
  for i =A to B do
    if k then
      positionÔö¼ÓÒ»¸öC£¨xc,yc,zc)µÄÊý;  //ÕâÀïÈçºÎд£¿
¡£¡£¡£
end;

Çë´óÏÀÖ¸µã¡£Ð»Ð»£¡£¡
SetLength

starluck£º

  ¾ßÌåÈçºÎд£¿
  ÿ´Î¶¼ÓÃsetlength?

SetLength(Length(position)+1)

position:array of record; //Ã²ËÆÓ¦µ±ÊÇposition:array of Tposition;
____________
SetLength(position, Length(position) + 1);
with position[Length(position) - 1] do
begin
  x := xc;
  y := yc;
  z := zc;
end;



Ïà¹ØÎÊ´ð£º

ACCESSµÄ×Ô¶¨Ò庯ÊýÔÚdelphiÀïÔõôÓÃÄØ...

ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()

¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...

Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!


(ÔÚA ......

תÌû£ºDELPHI±àд·þÎñ³ÌÐò×ܽáÒ»£­£­±àд¼¼ÇÉ

Ô­ÎĵØÖ·£ºhttp://hi.baidu.com/sqldebug/blog/item/8e2749213082c0589922ed61.html

Ö±½ÓÌù¹ýÀ´µÄ£¬ÓеãÂÒ£¬´ó¼Ò´ÕºÏ¿´¡£

Ò»¡¢·þÎñ³ÌÐòºÍ×ÀÃæ³ÌÐòµÄÇø±ð

Windows 2000/XP/2003µÈÖ§³ÖÒ»ÖÖ½Ð×ö¡° ......

delphi Óë C# λÔËËã ÓкôóÇø±ð£¬Çë½Ì¸÷λ£¡

delphi º¯Êý£º

function RB(A: longint): longint;
begin
  Result := (A shr 24) or ((A shr 8) and $FF00) or ((A shl 8) and $FF0000) or (A shl 24);
end;


ÎÒת³ÉC#£º

& ......

delphi µ÷ÓÃ vc dll ÎÊÌâ

ÎÒµ÷ÓÃvcµÄdll£¬´«ËͽṹÌå²ÎÊý¡£vc½ÓÊܺó´ÓÄÚ´æÖп½±´³öÎÒ´«Ë͵ÄÖµ¡£×ª»»Ö®ºóÊÇÂÒÂë
À´´íµØ·½ÁË.

È¥DELPHI

ddd

ÖªµÀ´íÁË

ÓÐû¾ßÌå´úÂë°¡

//ÏòÖÕ¶Ë·¢ËÍÃŽû±¨¾¯ÐÅÏ¢
    function alar ......

ÔÚdelphiÈçºÎ°ÑÒ»¸ö¶¯Ì¬Êý×éÖеÄֵȡ³öÀ´

ÎÒ´ÓÊý¾Ý¿âÖÐÈ¡³öÀ´Öµ°ÑËü´æ´¢ÔÚÁ˶¯Ì¬Êý×éÖУ¬Êý×éÒѾ­µÃµ½Á˸ÃÖµ£¬ÎÒÏÖÔÚÒª°Ñ¸Ã¶¯Ì¬Êý×éÖеÄֵȡ³öÀ´¸ú²Ëµ¥¶ÔÓ¦ÆðÀ´¡£
×î¼òµ¥µÄ£¬Ñ­»·°¡¡£

ÓÃMAP·½Ê½,ѹÈë,µ¯³ö.ºÇºÇ

û̫Ã÷°×


²Ëµ¥ÏîµÄtag¶ÔÓ¦Êý×éµÄÏ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ