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

Ò»¡¢ÈçºÎÏÞÖÆÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòÖ»ÔËÐÐÒ»¸ö

ÈçºÎÏÞÖÆÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòÖ»ÔËÐÐÒ»¸ö

ÔÚ¹¤³Ì¼ÓÈëÏÂÁдúÂë¿ÉÒÔ ......

Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿

Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂ𣿠......

Çó delphi webserivice µ÷ÓÃÀý×Ó

Çó  delphi webserivice µ÷ÓÃÀý×Ó
·þÎñ¶Ë±àд£ºÐ½¨"WebServices-->SOAP Server Application-->ISAPI/NSAPI Dynamic Link Library","Service name"ÌîдÄãÒªµÄ·þÎñÃû£¬Èç"SendS ......

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

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

Delphi7 ÖеIJâÊÔÔ´Â룺

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

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

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

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

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

Êǰ¡£¬¾ÍÕâà ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ