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 ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂð£¿
......
ÇëÎÊÈçºÎÉèÖÃÒ»¸ö°´Å¥£¬Ò»µãµ½Ëü¾Í²»¶ÏÖ´Ðа´Å¥ÉϼÓÔØµÄʼþ£¬ÖªµÀµã»÷ÁíÒ»¸ö°´Å¥²Å»áÍ£Ö¹£¬ÒòΪдÁ˸öÑ¡ºÅµÄС³ÌÐò£¬Ï£Íû¿ÉÒÔÏñµçÊÓÉÏÄÇÑù£¬Ò»µã¾Í²»¶ÏµÄË¢ ¶ø²»ÊǵãÒ»ÏÂˢһϣ¡£¡
Á½ÖÖ·½·¨
1.ÓÃtimerÈ¥¿ØÖÆÖ´ ......
ÇëÎʸ÷λÄܲ»ÄÜ¿´µ½delphiÖÐ×Ô´ø×é¼þµÄÄÚ²¿´úÂë,±ÈÈçÔõôȥ¿´speedbuttonµÄflat·½·¨ÖеĴúÂëµÈ.
SpeedButton1.Flat
Êó±êÒÆµ½FlatÉÏ£¬°´×¡Ctrl¼ü£¬×ó»÷
¶ÔÁË£¬SpeedButton1 ±ØÐëÊÇ´´½¨ºÃµÄ
Êǰ¡£¬¾ÍÕâà ......
ÎÒÓÃftpÉÏ´«Ò»¸öÎļþµ½ftp·þÎñÆ÷ÉÏ£¬Ç°¼¸Ìì¶¼Óõĺúõģ¬ºóÃæÒ»Ö±µ½ÏÖÔÚÁ¬²»ÉÏftpÁË
-------------------------------------
IdHTTP1:=TIdHTTP.Create(GetIP); //Ϊ·ÀÖ¹¶ÏÍøºóidhttpÎÞ·¨Æô¶¯ÆðÀ´,ËùÒÔ ......
ÈçºÎÈÃMDI´°ÌåÖ»Äܽ¨Á¢Ò»¸ö×Ó´°Ìå?
1¡¢Ö»ÒªÒ»¸ö×Ó´°Ì壬ÄÇÓÃMDIÒâÒåºÎÔÚÄØ£¬¿ÉÒÔÖ±½ÓÓÃSDI´°ÌåÁË
2¡¢Èç¹ûÒ»¶¨ÒªÕâÑù£¬Í¨¹ýTForm.MDIChildCountÊôÐÔ¿ØÖÆ
Â¥Ö÷ÏëÒª×öÒ»¸öµ¼º½½çÃæ£¿£¿
µ¼º½Ò³ÃæµÄʵÏÖ˼ ......