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;
Ïà¹ØÎÊ´ð£º
ÔÎĵØÖ·£ºhttp://hi.baidu.com/sqldebug/blog/item/8e2749213082c0589922ed61.html
Ö±½ÓÌù¹ýÀ´µÄ£¬ÓеãÂÒ£¬´ó¼Ò´ÕºÏ¿´¡£
Ò»¡¢·þÎñ³ÌÐòºÍ×ÀÃæ³ÌÐòµÄÇø±ð
Windows 2000/XP/2003µÈÖ§³ÖÒ»ÖÖ½Ð×ö¡° ......
´ÓÊý¾ÝÀï¶Á³öһЩÊý¾Ý·Åµ½Ò»¸ölistviewÀï È»ºóÓû§ÒªËÑË÷¡®Åܳµ¡¯ ÎÒ¾ÍÒª°ÑÖ»ÒªÓÐÅܳµ×ÖÑÛµÄÊý¾Ý¶¼È¡³öÀ´±ÈÈ硯·¨ÀÀûÅܳµ¡® ÇëÎÊ Õâ¸ö×Ö·û´®Ôõô±È½Ïѽ£¿ ²»ÄÜÔÚÊý¾Ý¿âÀïд´æ´¢¹ý³ÌÀ´È¡£¬Ö»ÄÜÔÚµ±Ç°µÄlistvie ......
ÇëÎÊÈçºÎÉèÖÃÒ»¸ö°´Å¥£¬Ò»µãµ½Ëü¾Í²»¶ÏÖ´Ðа´Å¥ÉϼÓÔØµÄʼþ£¬ÖªµÀµã»÷ÁíÒ»¸ö°´Å¥²Å»áÍ£Ö¹£¬ÒòΪдÁ˸öÑ¡ºÅµÄС³ÌÐò£¬Ï£Íû¿ÉÒÔÏñµçÊÓÉÏÄÇÑù£¬Ò»µã¾Í²»¶ÏµÄË¢ ¶ø²»ÊǵãÒ»ÏÂˢһϣ¡£¡
Á½ÖÖ·½·¨
1.ÓÃtimerÈ¥¿ØÖÆÖ´ ......
ÇëÎʸ÷λÄܲ»ÄÜ¿´µ½delphiÖÐ×Ô´ø×é¼þµÄÄÚ²¿´úÂë,±ÈÈçÔõôȥ¿´speedbuttonµÄflat·½·¨ÖеĴúÂëµÈ.
SpeedButton1.Flat
Êó±êÒÆµ½FlatÉÏ£¬°´×¡Ctrl¼ü£¬×ó»÷
¶ÔÁË£¬SpeedButton1 ±ØÐëÊÇ´´½¨ºÃµÄ
Êǰ¡£¬¾ÍÕâà ......