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
¡¡¡¡¹¦Ä
Ïà¹ØÎĵµ£º
#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. ......
²»ÂÛÊý×éÔªËØÊÇʲôÀàÐÍ£¬¾²Ì¬Êý×éµÄ¾Ö²¿±äÁ¿×Ü»áÔÚÕ»ÉÏ·ÖÅä¡£Èç¹û¶ÑÕ»´óС²»¹»½«»áµ¼ÖÂÒì³£¡£ÏÂÀý°µ²Ø×ÅÒ»¸öΣÏÕµÄbug
procedure stackover;
var
s:array [0..4100] of string[255];
begin
end;
delphiĬÈÏÕ»×î´óΪ$100000×Ö½Ú£¬ÉÏÀýÖеÄÕ»ÉÏ·ÖÅäµÄ´óÏÀΪ256*4100>$10000¡£²âÊÔ±ØÈ»»á³öÏÖÒì³£Stack overf ......
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Óõò»Ì«¶à£¬¼ÓÉÏÄԽºÃʹ£¬¾Í¼ÇÒ»ÏÂ×î³£ÓöԿª·¢Ð§ÂʺÜÓаïÖúµÄ¼¸¸ö£º
Ctrl+Êó±ê×ó¼ü£º²éÕÒ¶¨Òå
Ctrl+Shift+↑£ºÉÏÒ»²Ù×÷ÓëÆäÕýºÃÏà·´£¬Óɶ¨Òå²éÕÒʵÏÖ
Ctrl+Shift+¿Õ¸ñ£ºÔÚÒ»¸öº¯ÊýûÓÐÊäÈë²ÎÊýµÄÀ¨ºÅÄÚ°´Ï´˿ì½Ý¼üʱ»á³öÏÖº¯ÊýÏà¹Ø²ÎÊýµÄÌáʾÐÅÏ¢£¬°üÀ¨ÖØÔصÄËùÓк¯ÊýµÄÐÅÏ¢ ......