Delphi µÄ×Ö·û¼°×Ö·û´®[
Delphi µÄ×Ö·û¼°×Ö·û´®[1] - string¡¢AnsiString¡¢WideString¡¢String[n]¡¢ShortString
2008-10-17 14:57:17
//×î³£ÓÃµÄ string
var
str: string; {¶¨Òå}
begin
str := 'ÍòÒ»'; {¸³Öµ}
ShowMessage(IntToStr(Length(str))); {³¤¶ÈÊÇ: 4}
end;
//³¤×Ö·û´® AnsiString; ÔÚµ±Ç°°æ±¾(2007)ÖеÄĬÈÏ״̬ÏÂ, String ¾ÍÊÇ AnsiString
var
str: AnsiString;
begin
str := 'ÍòÒ»';
ShowMessage(IntToStr(Length(str))); {³¤¶ÈÊÇ: 4}
end;
//¿í×Ö·û´® WideString (ЧÂʲ»¼° AnsiString)
var
str: WideString;
begin
str := 'ÍòÒ»';
ShowMessage(IntToStr(Length(str))); {³¤¶ÈÊÇ: 2}
end;
//¶¨³¤×Ö·û´®
var
str1: String[6]; {Ö¸¶¨´óС²»Äܳ¬¹ý 255}
str2: String[100];
begin
{ÉÙ¸øÁËÒ²»áÕ¼ÄÇЩÄÚ´æ}
str1 := 'ÍòÒ»';
ShowMessage(str1); {ÍòÒ»}
ShowMessage(IntToStr(Length(str1))); {4; ÕâÊÇ×Ö·û´®µÄ³¤¶È}
ShowMessage(IntToStr(SizeOf(str1))); {7; ÕâÊÇÕ¼ÄÚ´æ´óС}
{¶à¸øÁ˻ᱻ½Ø¶Ï}
str1 := 'ÍòÒ»µÄ Delphi ²©¿Í';
ShowMessage(str1); {ÍòÒ»µÄ}
ShowMessage(IntToStr(Length(str1))); {6; ÕâÊÇʵ¼Ê±£´æµÄ×Ö·û´®³¤¶È}
ShowMessage(IntToStr(SizeOf(str1))); {7; ÕâÊÇÕ¼ÄÚ´æ´óС}
{ÎÊÌâ: ²»ÊÇÉùÃ÷´óСΪ 6 Âð? Ôõô SizeOf ÊÇ 7 ? }
{ÒòΪ¶¨³¤×Ö·û´®»á¶à³öÒ»¸öÊ××Ö½ÚÀ´¼ÇÒä×Ö·û´®µÄʵ¼Ê³¤¶È}
{¾ÙÀý˵Ã÷, Èç¹û¸ø str2 °´Èçϸ³Öµ, ÄÇËüµÄÊ××Ö½Ú(str2[0])¿Ï¶¨´¢´æ×Å×Ö·û 'A'}
str2 := 'iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii'; {65¸ö}
ShowMessage(str2[0]); {A}
ShowMessage(IntToStr(Ord(str2[0]))); {65; ÕâÊÇ 'A' ÔÚ ASCII ÐòÁÐÖеÄÐòºÅ, ÓõľÍÊÇËü}
{ÄÇÒÔºó¿ÉÒÔÓà Ord(str2[0]) À´´úÌæ Length ÅжÏ×Ö·û´®µÄ³¤¶ÈÂð? }
&n
Ïà¹ØÎĵµ£º
3.2 Óû§µÇ¼·½°¸
ÔÚ½øÈëÒ»¸öϵͳʱ£¬±ØÐëÏÈÔڵǼ´°ÌåÖÐÊäÈëÕýÈ·µÄÓû§ÃûºÍÃÜÂë²ÅÄܽøÈë¡£ÕâÑù¿ÉÒÔÈ·±£ÏµÍ³µÄ°²È«ÐԺͱ£ÃÜÐÔ£¬µÇ¼´°ÌåµÄÖÆ×÷°´ÕÕϵͳµÄ´óС¼°Óô¦£¬¿ÉÒÔ·ÖΪ²»Í¬µÄµÇ¼´°ÌåÑùʽ£¬ÔÚϵͳµÚÒ»´ÎµÇ¼ǰ£¬Ê×ÏÈÒª¶Ô²Ù×÷Ô±ÐÅÏ¢½øÐÐÏàÓ¦µÄÉèÖᣱ¾½Ú½«¶ÔµÇ¼´°Ìå¼°²Ù×÷Ô±¹ÜÀí´°ÌåµÄÖÆ×÷¹ý³Ì½øÐÐÏêϸµÄ˵Ã÷ ......
Delphi²Ù×÷×¢²á±í²½ÖèÈçÏ£º
-------------------------------------
1£©ÔÚUsesÖÐÌí¼ÓRegistryµ¥Ôª£»
2£©ÉùÃ÷TRegistry¶ÔÏó£»
3£©´´½¨TRegistry¶ÔÏó£»
4£©Ö¸¶¨¸ù¼ü£»
----------------try------------------
5£©´ò¿ªÐèÒª²Ù×÷µÄÖ÷¼ü£»
6£©¶Áд²Ù×÷£»
7£©±£´æ²¢¹Ø±ÕÖ÷¼ü£»
--------------finally----------------
......
ÎÒÃÇÄÜ¿´µ½ÒÔÏ´úÂë
var pSource,pDest:PChar;
len: integer;
.......................//һЩ´úÂë
Move(pSource,pDest,len); //´íÎó
Move(pSource^,pDest^,len); //ÕýÈ·
¿´ÆðÀ´È·ÊµºÃÏñÊÇ´«Öµ£¬¶ø²»ÊÇ´«µØÖ·£¬µ«ÊǸ÷λ±ðÍüÁË£¬Õâ²»ÊÇC£¬C++£¬¶øÊÇDelphi
Object Pascal,ËùÒÔ£¬¾ø²»ÄÜ´Óº¯Êýµ ......
»ñÈ¡post£¬»òÕßget·µ»ØµÄcookie£¬³ýÁ˹ýÂË·µ»ØµÄ×Ö·û´®Ö®Í⣬×î¼òµ¥µÄ·½·¨ÊÇʹÓÃidhttpµÄCookieManagerÊôÐÔ
±ÈÈç»ñµÃIDhttp·µ»ØµÄÈ«²¿Cookie
if idhttp1.CookieManager.CookieCollection.Count > 0 then
for i := 0 to idhttp1.CookieManager.CookieCollection.Count - 1 do
temp := temp + idhttp1.Cooki ......
¿ª·¢²½Ö裺
1¡¢´´½¨ActiveX Library¹¤³Ì¡£
2¡¢´´½¨COM Object¡£
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
4¡¢´´½¨½Ó¿Ú¶ÔÓ¦µÄº¯ÊýºÍʵÏÖ¡£
¾ßÌåÈçÏ£º
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
view|type library
ÕÒµ½ÒѾÉú³ÉµÄtype library,ÆäʵºÍTLBÎļþÊǶÔÓ¦µÄ¡£
ÎÒÃÇ¿ÉÒÔ¿´µ½ÉÏÒ»²½Éú³ÉµÄ¶ÔÏóÒ²º¬ÔÚÀïÃæ¡£
ÎÒ ......