Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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;



Ïà¹ØÎÊ´ð£º

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

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

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

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

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

Excel ÈçºÎµ÷Óà Delphi ±àÒëµÄ Dll Öеĺ¯Êý£¿

ÎÒÏëÓà Delphi ±àд°üº¬º¯ÊýµÄ Dll£¬È»ºóÔÚ Excel VBA µ÷Óá£ÊÔÁ˺ܶà´Î¶¼ÎÞ·¨·µ»ØÕýÈ·µÄ½á¹û¡£
¾ßÌåÈçÏ£º

Delphi7 ÖеIJâÊÔÔ´Â룺

//********************************************************* ......

»ù´¡ÎÊÌ⣺c#ÓÐûÓÐÏñDELPHIÒ»ÑùµÄ´úÂë¸ú×ÙÌáʾ¹¦ÄÜ

±ÈÈçÔÚdelphi´úÂëÀ¶Ôij¸ö·½·¨»òÕßform²»Á˽⣬°´ÏÂctrl¼ü£¬ÓÃÊó±êµãһϣ¬¾Í»áÌøµ½Õâ¸öform»ò·½·¨µÄ´úÂëÄÄÀïÈ¥¡£

ÎÒ¸Õѧc#£¬ÏÈÏÂÁËÒ»¸öϵͳµÄÔ´´úÂë¿´£¬ÀïÃæºÜ¶à¿Ø¼þ¡¢·½·¨²»ÖªµÀÊÇÄÄÀïÀ´µÄ£¬Ò²Ã»·¨È¥ÕÒ¡£ ......

ÈçºÎ²é¿´delphiÄÚ²¿´úÂë

ÇëÎʸ÷λÄܲ»ÄÜ¿´µ½delphiÖÐ×Ô´ø×é¼þµÄÄÚ²¿´úÂë,±ÈÈçÔõôȥ¿´speedbuttonµÄflat·½·¨ÖеĴúÂëµÈ.
SpeedButton1.Flat

Êó±êÒÆµ½FlatÉÏ£¬°´×¡Ctrl¼ü£¬×ó»÷

¶ÔÁË£¬SpeedButton1 ±ØÐëÊÇ´´½¨ºÃµÄ

Êǰ¡£¬¾ÍÕâà ......

delphiÁ¬½ÓftpµÄÎÊÌâ

ÎÒÓÃftpÉÏ´«Ò»¸öÎļþµ½ftp·þÎñÆ÷ÉÏ£¬Ç°¼¸Ìì¶¼Óõĺúõģ¬ºóÃæÒ»Ö±µ½ÏÖÔÚÁ¬²»ÉÏftpÁË
-------------------------------------
  IdHTTP1:=TIdHTTP.Create(GetIP); //Ϊ·ÀÖ¹¶ÏÍøºóidhttpÎÞ·¨Æô¶¯ÆðÀ´,ËùÒÔ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ