DelphiÕâôÁéÒìµÄ£¿
Delphi(Pascal) code: var str:array of string; i:Integer; j:Integer; begin SetLength(str,1); for i:=0 to 4 do begin j:=Length(Str); SetLength(str,Length(str)+1); Str[Length(Str)]:='xxxx'; end; ShowMessage(str[0]); ShowMessage(str[1]); ShowMessage(str[2]); ShowMessage(str[3]); end; ¼¸¸öÆæ¹ÖµÄµØ·½£¬µ÷ÊÔ·¢ÏÖ£¬iµÄÖµÔÚµÚÒ»´ÎÑ»·¾ÓÈ»ÊÇ5£¬µÚ2´ÎÊÇ4£¬µÚ3´ÎÊÇ3.¡£¡£¡£ ²»ÊÇÓ¦¸Ã´Ó0-4µÄÂ𣿣¿£¿ »¹ÓУ¬ÎªÊ²Ã´j:=Length(Str);Ϊʲôһֱ¸æËßÎÒÊÇËæ»úÊý£¿µ÷ÊÔ·¢ÏÖstrÀïÃæµÄÔªËØ¸öÊýȷʵÊÇÔÚµÝÔöѽ£¡µÃµ½Êý×éµÄ³¤¶ÈÔõô¸ã£¿LengthÒ²²»ÐУ¬SizeOfÒ²²»ÐУ¿ ¸ãÁ˼¸Ì죬·¢ÏÖDelphiÌ«²»ÊʺÏÎÒÓÃÁË£¬Ôõô¶¼ÕâÃ´Ææ¹ÖµÄ£¬ºÍ¹ÛÄîºÜ³åÍ»
LZ ÔÚÓÞŪ´óÖÚ£¿ ÄÇÊDZàÒëÆ÷ÓÅ»¯µÄ½á¹û¡¡ÒýÓà µÃµ½Êý×éµÄ³¤¶ÈÔõô¸ã£¿LengthÒ²²»ÐУ¬SizeOfÒ²²»ÐУ¿ high(Str)µÃµ½Êý×éÉϱê low(Str)µÃµ½Êý×éÏÂ±ê ¾Í¿ÉÒԵõ½Êý×éÔªËØµÄÊýÁ¿ÁË£¬²»ÖªµÀÄã˵µÄÊý×éµÄ³¤¶ÈÊDz»ÊÇÕâ¸ö£¿£¿ ÎÒ²»¹ÜÓÃÓÃɶ¶¼²»ÐÐ °ÑÁéÒìµÄͼ·¢ÉÏÀ´ ×îÏ·½¾ÓÈ»Óиö never used??????Fuck µ±±àÒëÆ÷¡°ÈÏΪ¡±µÝ¼õºÍµÝÔöЧ¹ûÒ»Ñùʱ£¬ÒòΪµÝ¼õµ½0Ö´ÐÐËٶȸü¿ì£¬ËùÒÔÄã¾Í¾õµÃ¡°ÁéÒ족ÁË j˵ÊDZ»ÓÅ»¯ÁË£¿£¿£¿ÄÇÎÒÔõôµÃµ½Êý×éÔªËØµÄ¸öÊý°¡£¿£¿£¿ °ÑCompilerÀïÃæµÄOptimaztion¹Øµô£¬¾Í¿ÉÒÔÈ¥µôÓÅ»¯Ñ¡ÏîÁ
Ïà¹ØÎÊ´ð£º
ÈçÌâ¡£ ¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£ ûÓÐÑо¿¹ý£¬ºÇºÇ ÓÐɶÑо¿Í·£¿ ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡ ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿ ÒòΪ²»ÊìϤDelphi £ ......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Â𣿠¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£ µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË É¶É¶ÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
ºÃ¾ÃûÓóÌÐòÁË£¬·¢ÏÖdelphi 7 ÓеãÂäÎéÁË¡£ ÏÈÏëѧϰÆäËû±à³Ì¹¤¾ß£¬»òÕß×îаæµÄdelphi£¬Çë´ó¼ÒÍÆ¼öÍÆ¼ö¡£ ·½ÏòÓÐûÓж¨ÏÂÀ´?ÓÐÄ¿±ê²ÅºÃÑ¡¹¤¾ß°¡ ÄǾÍѧC££°É Èí¼þÒªÇó£¬ÀàËÆdelphi7µÄ±à³Ì»·¾³£¬Ï²»¶ ......
edit2.Text:=edit2.Text+l.Strings[i]+','; edit2.Text:=copy(edit2.Text,1,length(edit2.Text)-1); ΪʲôÊä³öµÄ½á¹ûÀïûÓÐÁ˶ººÅ£¬±ÈÈç˵ÊäÈë11£¬10£¬12£¬13£¬18Êä³öÊÇ1011121318 Èç¹ûÈ¥µô-1µÄ»° ......
¸÷λ°ï¸ö棬ÇëÎÊÓÃdelphiÔõôÑùÔ¶³ÌÁ¬½Ó·þÎñÆ÷Êý¾Ý¿â£¬ÎÒÁ¬½Ó±¾µØµÄ³ÌÐòΪʲôÓÐ´í£¿ adoquery1.ConnectionString:='Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User&nbs ......