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;
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()
¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...
Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!
(ÔÚA ......
ÔÎĵØÖ·£ºhttp://hi.baidu.com/sqldebug/blog/item/58a764624a44d74eeaf8f863.html
Ò»¡¢ÈçºÎÏÞÖÆÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòÖ»ÔËÐÐÒ»¸ö
ÈçºÎÏÞÖÆÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòÖ»ÔËÐÐÒ»¸ö
ÔÚ¹¤³Ì¼ÓÈëÏÂÁдúÂë¿ÉÒÔ ......
ÇëÎÊdbook V1.10°æ±¾µÄÔ´´úÂ루delphi£©ÊDz»ÊÇÔËÐв»Á˰¡£¬ÔÚÍøÉÏÏÂÁ˺ö࣬´ò¿ªÖ÷´°ÌåµÄʱºò×ÜÊDZ¨´í,֮ǰ×Ôѧc#£¬²Å¸Õ¿ªÊ¼£¬ÏÖÔÚÀÏʦ²¼ÖÃÈÎÎñÈÃÎÒ¸Ädbook V1.10°æ±¾µÄÔ´´úÂ룬ץ¿ñÁË£¬Ò»µãÍ·Ð÷ҲûÓУ¿¸÷λ´óÏÀ¸øµ ......
ÎÒµ÷ÓÃvcµÄdll£¬´«ËͽṹÌå²ÎÊý¡£vc½ÓÊܺó´ÓÄÚ´æÖп½±´³öÎÒ´«Ë͵ÄÖµ¡£×ª»»Ö®ºóÊÇÂÒÂë
½á¹¹ÌåÔõô¶¨ÒåµÄ?
//ÏòÖÕ¶Ë·¢ËÍÃŽû±¨¾¯ÐÅÏ¢
function alarmSentDoor(var pDoorPara :Alley_ALARM_PARA) ......
SQL.Add('SELECT formula,val(DMAF) as i from Åä·½Õï¶Ï±í where 1=1 and formula ='''+Combobox3.Text+''' and formula ='''+Combobox4.Text+'''');
Õ ......