Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

DelphiÀàÐÍת»»


Chr ½«Ò»¸öÓÐÐòÊý¾Ýת»»ÎªÒ»¸öANSI×Ö·û  
Ord ½«Ò»¸öÓÐÐòÀàÐÍֵת»»ÎªËüµÄÐòºÅ  
Round ×ª»»Ò»¸öʵÐÍֵΪËÄÉáÎåÈëºóµÄÕûÐÍÖµ  
Trunc ×ª»»Ò»¸öʵÐÍֵΪСÊý½Ø¶ÏºóµÄÕûÐÍÖµ  
Int ·µ»Ø¸¡µãÊýµÄÕûÊý²¿·Ö  
IntToStr ½«Êýֵת»»Îª×Ö·û´®  
IntToHex ½«Êýֵת»»ÎªÊ®Áù½øÖÆÊý×Ö·û´®  
StrToInt ½«×Ö·û´®×ª»»ÎªÒ»¸öÕûÐÍÊý£¬Èç×Ö·û´®²»ÊÇÒ»¸öºÏ·¨µÄÕûÐͽ«Òý·¢Òì³£  
StrToIntDef ½«×Ö·û´®×ª»»ÎªÒ»¸öÕûÊý£¬Èç×Ö·û´®²»ºÏ·¨·µ»ØÒ»¸öȱʡֵ  
Val ½«×Ö·û´®×ª»»ÎªÒ»¸öÊý×Ö£¨´«Í³Turbo PascalÀý³ÌÓÃÓÚÏòºó¼æÈÝ£©  
Str ½«Êý×Öת»»Îª¸ñʽ»¯×Ö·û´®£¨´«Í³Turbo PascalÀý³ÌÓÃÓÚÏòºó¼æÈÝ£©  
StrPas ½«ÁãÖÕÖ¹×Ö·û´®×ª»»ÎªPascalÀàÐÍ×Ö·û´®£¬ÔÚ32λDelphiÖÐÕâÖÖÀàÐÍת»»ÊÇ×Ô¶¯½øÐеĠ 
StrPCopy ¿½±´Ò»¸öPascalÀàÐÍ×Ö·û´®µ½Ò»¸öÁãÖÕÖ¹×Ö·û´®, ÔÚ32λDelphiÖÐÕâÖÖÀàÐÍת»»ÊÇ×Ô¶¯½øÐеĠ 
StrPLCopy ¿½±´PascalÀàÐÍ×Ö·û´®µÄÒ»²¿·Öµ½Ò»¸öÁãÖÕÖ¹×Ö·û´® 
Delphi 7.0³£Óú¯ÊýÓÉÒ»¾ä»ò¶à¾ä´úÂë×é³É£¬¿ÉÒÔʵÏÖij¸öÌØ¶¨µÄ¹¦ÄÜ¡£Ê¹Óú¯Êý¿ÉÒÔʹ´úÂë¸ü¼ÓÒ×¶Á¡¢Ò×¶®£¬¼Ó¿ì±à³ÌËٶȼ°¼õÉÙÖØ¸´´úÂë¡£¹ý³ÌÓ뺯ÊýÀàËÆ£¬¹ý³ÌÓ뺯Êý×îÖØÒªµÄÇø±ðÔÚÓÚ£¬¹ý³ÌûÓзµ»ØÖµ£¬¶øº¯ÊýÄÜÓзµ»ØÖµ¡£
¡¡¡¡ÔÚDelphi 7.0ÖУ¬ÒÑΪÎÒÃǶ¨ÒåºÃÁ˷dz£¶àµÄº¯Êý£¬´óÖ·ÖÀàÓÐ6ÖÖ£ºÊý¾ÝÀàÐÍת»»º¯Êý¡¢×Ö·û´®¡¢Êý×é²Ù×÷º¯Êý¡¢Îļþ¡¢´ÅÅ̲Ù×÷º¯Êý¡¢ÄÚ´æ¡¢Ö¸Õë²Ù×÷º¯Êý¡¢ÊýѧÔËË㺯Êý¡¢ÈÕÆÚº¯Êý¡£
¡¡¡¡ÔÚDelphiÖе÷Óú¯Êý£¬Ò»°ãÇé¿öÏ¿ÉÒÔÖ±½ÓʹÓú¯Êý¼´¿É£¬µ«ÓÉÓÚÓÐһЩº¯Êýδ°üº¬ÔÚUsesÖÐÁгöµÄµ¥ÔªÖÐ(ĬÈϵ¥ÔªÓÐWindows,Messages,SysUtils,Variants,Classes,Graphics, Controls,Forms,Dialogs£¬ËùÒÔÐèÒªÎÒÃÇÊÖ¶¯Ìí¼Óµ¥Ôª¡£±ÈÈ磬MidStrº¯Êý¾Íδ°üº¬ÔÚÕâЩµ¥ÔªÖУ¬MidStrËùÊôµ¥ÔªÔÚStrUtilsÖУ¬Òò´ËÎÒÃǽ«StrUtilsÌí¼ÓUsesÖм´¿É¡£
¡¡¡¡ÔÚ±¾ÊÖ²áÖУ¬·²ÊÇδ°üº¬ÔÚĬÈÏÁгöµÄµ¥ÔªÖеĺ¯Êý£¬¶¼±êÃ÷ÁËÆäËùÊôµÄµ¥Ôª£¬Ê¹ÓÃʱӦµ±×¢Òâ¡£
Ò»¡¢Êý¾ÝÀàÐÍת»»º¯Êý
¡¡¡¡ÔÚÎÒÃDZàд³ÌÐòµ±ÖУ¬¸ù¾Ý²»Í¬Çé¿ö£¬»áʹÓõ½¶àÖÖÊý¾ÝÀàÐÍ¡£µ±Òª¶Ô²»Í¬µÄÀàÐͽøÐвÙ×÷ʱ£¬±ØÐëÒª½«²»Í¬µÄÀàÐÍת»»³ÉͬÑùµÄÀàÐÍ¡£Òò´ËÊìÁ·µØÕÆÎÕÊý¾ÝÀàÐ͵Äת»»ÊǷdz£ÖØÒªµÄ¡£
1.FloatToStr
¡¡¡¡¹¦Ä


Ïà¹ØÎĵµ£º

delphi¼¼ÇɼǼ


#13»Ø³µ»»ÐÐ
½«form2ÄÚÈݼÓÈëµ½form1Áбí¿ò£ºÔÚform2Àform1.listbox1.items.add(edit1.text)
listbox1.items.loadfromfile('chinese.txt')½«chinese.txtÎļþÄÚÈÝÔØÈëÁбí¿òÖС£µ«Ç°ÌáÊÇÒªÕû¸ö´°Ìå´´½¨Ê±ºò¼ÓÔØµ¼È룬˫»÷Õû¸ö´°Ìåprocedure TForm1.FormCreate(Sender: TObject)
listbox1.items.savetofile('chinese. ......

DelphiÖеÄÊý×é

²»ÂÛÊý×éÔªËØÊÇʲôÀàÐÍ£¬¾²Ì¬Êý×éµÄ¾Ö²¿±äÁ¿×Ü»áÔÚÕ»ÉÏ·ÖÅä¡£Èç¹û¶ÑÕ»´óС²»¹»½«»áµ¼ÖÂÒì³£¡£ÏÂÀý°µ²Ø×ÅÒ»¸öΣÏÕµÄbug
procedure stackover;
var
s:array [0..4100] of string[255];
begin
end; 
delphiĬÈÏÕ»×î´óΪ$100000×Ö½Ú£¬ÉÏÀýÖеÄÕ»ÉÏ·ÖÅäµÄ´óÏÀΪ256*4100>$10000¡£²âÊÔ±ØÈ»»á³öÏÖÒì³£Stack overf ......

Delphi ´´½¨Ä¿Â¼¼°Ð´ÈÕÖ¾Îļþ


Delphi ´´½¨Ä¿Â¼¼°Ð´ÈÕÖ¾Îļþ
var
TF: TextFile;
LogFile: string;
txt :string;
sysDir:string;
//´´½¨°´Å¥
procedure TForm1.Button1Click(Sender: TObject);
begin
sysDir:=extractfilepath(application.ExeName );
if not directoryexists(sysdir+'log\') then
createdir(sysdir+'log ......

DELPHI¿ª·¢ÖкÃÓõĿì½Ý¼ü(D2007°æ)

DELPHIÓõò»Ì«¶à£¬¼ÓÉÏÄԽºÃʹ£¬¾Í¼ÇÒ»ÏÂ×î³£ÓöԿª·¢Ð§ÂʺÜÓаïÖúµÄ¼¸¸ö£º
Ctrl+Êó±ê×ó¼ü£º²éÕÒ¶¨Òå
Ctrl+Shift+↑£ºÉÏÒ»²Ù×÷ÓëÆäÕýºÃÏà·´£¬Óɶ¨Òå²éÕÒʵÏÖ
Ctrl+Shift+¿Õ¸ñ£ºÔÚÒ»¸öº¯ÊýûÓÐÊäÈë²ÎÊýµÄÀ¨ºÅÄÚ°´Ï´˿ì½Ý¼üʱ»á³öÏÖº¯ÊýÏà¹Ø²ÎÊýµÄÌáʾÐÅÏ¢£¬°üÀ¨ÖØÔصÄËùÓк¯ÊýµÄÐÅÏ¢ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ