delphi ²ð·Ö×Ö·û´®
×î½üÔÚʹÓÃDelphi¿ª·¢Ò»ÖÖÓ¦ÓÃϵͳµÄ¼¯³É¿ª·¢»·¾³¡£ÆäÖÐÐèҪʵÏÖÒ»¸ö×Ö·û´®²ð·Ö¹¦ÄÜ£¬·½·¨»ù±¾ÔÐÍÓ¦¸ÃÊÇ£º
procedure
SplitString(src: string
; ch: Char; var
stringList: TStringList);
Ä¿µÄÊÇʹÓÃ×Ö·ûch²ð·Ösrc×Ö·û´®£¬°Ñ²ð·ÖµÄ½á¹û·ÅÈëstringListÖС£ÀýÈ磺src:='abc|def|ghi'; ch='|'µÄʱºò£¬·µ»ØµÄstringListÓ¦¸ÃÊÇ{abc, def, ghi}¡£
¿ªÊ¼µÄʱºò£¬ÎÒÊÇʹÓûñÈ¡chÔÚsrcÖгöÏÖµÄλÖã¬È»ºóʹÓÃStrUtilsµ¥ÔªÌṩµÄRightStr·½·¨À´·Ö¸î×Ö·û´®£¬²¢½«½á¹û±£´æÔÚstringListÖеġ£³ÌÐòÈçÏ£º
procedure
SplitString(src: string
; ch: Char; var
stringList: TStringList);
var
p: Integer;
s: string
;
begin
try
stringList.Clear;
s := src;
repeat
p := Pos(ch, s);
if
p = 0 then
begin
stringList.Add(s);
Break;
end
;
stringList.Add(LeftStr(s, p - 1));
s := RightStr(s, Length(s) - p);
until
False;
except
raise
;
end
;
end
;
Òź¶µÄÊÇ£¬ÉÏÃæµÄ³ÌÐò¶ÔÓÚsrcÖÐËùÓÐ×Ö·û¶¼Êǰë½Ç×Ö·û£¨Ó¢ÎÄ¡¢Êý×Ö¡¢±êµãµÈ£©µÄ×Ö·û´®£¬ÔËÐÐÆðÀ´ÍêȫûÓÐÎÊÌ⣬¶øÈç¹ûsrcÖк¬ÓÐÖÐÎÄ£¬ÎÊÌâ¾Í±È½Ï´óÁË£»Length·½·¨¿ÉÒÔÕýÈ·µØÈ¡µÃ×Ö·û´®µÄ³¤¶È£¬¶øLeftStrºÍRightStrÔò²»ÄÜÕýÈ·µØ½ØÈ¡×Ö·û´®¡£
Ò»¸ö±È½ÏºÏÀíµÄÌæ´ú·½·¨ÊÇ£º±éÀúsrcÖеÄËùÓÐ×Ö·û£¬Èç¹ûµ±Ç°×Ö·û²»ÊÇch£¬Ôò°Ñch¼Óµ½ÁÙʱ×Ö·û´®tmpstrÖУ¬·ñÔò½«tmpstr¼ÓÈëstringList²¢½«tmpstr¸³ÖµÎª¿Õ×Ö·û´®¡£ÕâÑù×ö¿ÉÒԱܿª¶ÔÖÐÎÄ×Ö·ûµÄ´¦Àí¡£³ÌÐòÈçÏ£º
procedure
TXNetDevEnvHelper.SplitStrin
Ïà¹ØÎĵµ£º
¶¯Ì¬Á´½Ó¿âÊÇÒ»¸öÄܹ»±»Ó¦ÓóÌÐòºÍÆäËüµÄDLLµ÷ÓõĹý³ÌºÍº¯ÊýµÄ¼¯ºÏÌå,ËüÀïÃæ°üº¬µÄÊǹ«¹²´úÂë»ò×ÊÔ´¡£ÓÉÓÚDLL´úÂëʹÓÃÁËÄÚ´æ¹²Ïí¼¼Êõ,ÔÚijЩµØ·½windowsÒ²¸øÁËDLLһЩ¸ü¸ßµÄȨÏÞ,Òò¶øDLLÖпÉÒÔʵÏÖһЩһ°ã³ÌÐòËù²»ÄÜʵÏֵŦÄÜ,ÈçʵÏÖwindowsµÄHOOK¡¢ISAPIµÈ¡£Í¬Ê±,DLL»¹Îª²»Í¬ÓïÑÔ¼ä´úÂë¹²ÏíÌṩÁËÒ»Ìõ·½±ãµÄ;¾¶¡£Òò¶øD ......
¿ª·¢²½Ö裺
1¡¢´´½¨ActiveX Library¹¤³Ì¡£
2¡¢´´½¨COM Object¡£
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
4¡¢´´½¨½Ó¿Ú¶ÔÓ¦µÄº¯ÊýºÍʵÏÖ¡£
¾ßÌåÈçÏ£º
1¡¢´´½¨ActiveX Library¹¤³Ì¡£
new|other|activeX|activeX library
Delphi»á×Ô¶¯Éú³É¿ò¼Ü´úÂ룬ֱ½Ó±àÒëµÄ»°¾Í¿ÉÒԵõ½Ò»¸ödllÎļþÁË£»
Èç¹ûÏë±àÒë³öÀ´µÄÊÇocxÎÄ ......
¿ª·¢²½Ö裺
1¡¢´´½¨ActiveX Library¹¤³Ì¡£
2¡¢´´½¨COM Object¡£
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
4¡¢´´½¨½Ó¿Ú¶ÔÓ¦µÄº¯ÊýºÍʵÏÖ¡£
¾ßÌåÈçÏ£º
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
view|type library
ÕÒµ½ÒѾÉú³ÉµÄtype library,ÆäʵºÍTLBÎļþÊǶÔÓ¦µÄ¡£
ÎÒÃÇ¿ÉÒÔ¿´µ½ÉÏÒ»²½Éú³ÉµÄ¶ÔÏóÒ²º¬ÔÚÀïÃæ¡£
ÎÒ ......
Ò»ÌáÆð»ùÓÚWeb Services¼¼ÊõµÄÓ¦ÓóÌÐò¿ª·¢£¬Ò»°ãÈËÊ×ÏÈÏëµ½µÄ¿ª·¢¹¤¾ßÊÇVs.net£¬Æäʵ×÷Ϊ¿ìËÙÓ¦ÓóÌÐò¿ª·¢¹¤¾ß(RAD)µÄÀÏ´ó£¬Delphi´Ó6.0¾Í¿ªÊ¼Ö§³ÖWeb ServicesµÄ¿ª·¢ºÍÓ¦ÓÃÁË£¬±¾ÎÄͨ¹ýʹÓÃDelphi 7.0µ÷ÓÃÐÂÀË·¢ËͶÌÐŵÄWeb Service½øÐжÌÐÅÓ¦ÓóÌÐò¿ª·¢ÕâһʵÀýÏêϸµÄ½éÉÜÔÚDelphiÖÐÈçºÎ¿ª·¢»ùÓÚWeb ServicesµÄÓ¦ÓÃϵͳ¡ ......
DelphiÖÐÓÐÒ»¸öÏß³ÌÀàTThreadÊÇÓÃÀ´ÊµÏÖ¶àÏ̱߳à³ÌµÄ£¬Õâ¸ö¾ø´ó¶àÊýDelphiÊé½å¶¼ÓÐ˵µ½£¬µ«»ù±¾É϶¼ÊǶÔTThreadÀàµÄ¼¸¸ö³ÉÔ±×÷Ò»¼òµ¥½éÉÜ£¬ÔÙ˵Ã÷Ò»ÏÂExecuteµÄʵÏÖºÍSynchronizeµÄÓ÷¨¾ÍÍêÁË¡£È»¶øÕâ²¢²»ÊǶàÏ̱߳à³ÌµÄÈ«²¿£¬ÎÒд´ËÎĵÄÄ¿µÄÔÚÓÚ¶Ô´Ë×÷Ò»¸ö²¹³ä¡£
Ï̱߳¾ÖÊÉÏÊǽø³ÌÖÐÒ»¶Î²¢·¢ÔËÐеĴú ......