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
    
     
	
	
    
    
	Ïà¹ØÎĵµ£º
        
    
    3.2  Óû§µÇ¼·½°¸
ÔÚ½øÈëÒ»¸öϵͳʱ£¬±ØÐëÏÈÔڵǼ´°ÌåÖÐÊäÈëÕýÈ·µÄÓû§ÃûºÍÃÜÂë²ÅÄܽøÈë¡£ÕâÑù¿ÉÒÔÈ·±£ÏµÍ³µÄ°²È«ÐԺͱ£ÃÜÐÔ£¬µÇ¼´°ÌåµÄÖÆ×÷°´ÕÕϵͳµÄ´óС¼°Óô¦£¬¿ÉÒÔ·ÖΪ²»Í¬µÄµÇ¼´°ÌåÑùʽ£¬ÔÚϵͳµÚÒ»´ÎµÇ¼ǰ£¬Ê×ÏÈÒª¶Ô²Ù×÷Ô±ÐÅÏ¢½øÐÐÏàÓ¦µÄÉèÖᣱ¾½Ú½«¶ÔµÇ¼´°Ìå¼°²Ù×÷Ô±¹ÜÀí´°ÌåµÄÖÆ×÷¹ý³Ì½øÐÐÏêϸµÄ˵Ã÷ ......
	
    
        
    
    ÉèÓÐÒÔÏÂÈý¸ö±äÁ¿£º
var
  s:string;
  p:pchar;
  a:array[1..20] of char;
ÄÇôÈýÕßÖ®¼äµÄת»»ÈçÏ£º
1¡¢×Ö·û´®µ½PChar
    p:=PChar(s);
2¡¢PCharµ½×Ö·û´®
    s:=p;
3¡¢PCharµ½×Ö·ûÊý×é
    StrCopy(@a,p);
4¡¢×Ö·ûÊý×éµ½PChar
   ......
	
    
        
    
    delphiÖÐSynchronizeÕâ¸ö¶«¶«ÓÐʲôÓã¿ÎÒÖªµÀÊÇÏß³Ìͬ²½Ê¹ÓõÄ
ÊÇ·ñÊÇÒ»¸öº¯Êý»ò±äÁ¿£¬µ±Ò»¸öÏß³ÌÔÚʹÓÃʱ£¬Èç¹ûÕâ¸öº¯ÊýʹÓÃÁËSynchronizeÐÞîߵϰ¾Í²»ÔÊÐí±ðÒ»¸öÏß³ÌÀ´µ÷ÓÃÕâ¸öº¯Êý 
1Â¥£º±ðµÄÏ̻߳áµÈ´ý¸Ã²Ù×÷Íê³Éºó²ÅÄܼÌÐø 
2Â¥£ºÄã˵µÄ»ù±¾ÊÇÕâ¸öÒâ˼¡£ËüµÄÄ¿µÄÊDZÜÃâ¶à¸ö×ÓÏß³Ìͬʱ·ÃÎÊÖ÷Ïß³Ì×ÊÔ´¡£ 
ʾÀý£º 
 ......
	
    
        
    
    DelphiÖÐÓÐÒ»¸öÏß³ÌÀàTThreadÊÇÓÃÀ´ÊµÏÖ¶àÏ̱߳à³ÌµÄ£¬Õâ¸ö¾ø´ó¶àÊýDelphiÊé½å¶¼ÓÐ˵µ½£¬µ«»ù±¾É϶¼ÊǶÔTThreadÀàµÄ¼¸¸ö³ÉÔ±×÷Ò»¼òµ¥½éÉÜ£¬ÔÙ˵Ã÷Ò»ÏÂExecuteµÄʵÏÖºÍSynchronizeµÄÓ÷¨¾ÍÍêÁË¡£È»¶øÕâ²¢²»ÊǶàÏ̱߳à³ÌµÄÈ«²¿£¬ÎÒд´ËÎĵÄÄ¿µÄÔÚÓÚ¶Ô´Ë×÷Ò»¸ö²¹³ä¡£
    Ï̱߳¾ÖÊÉÏÊǽø³ÌÖÐÒ»¶Î²¢·¢ÔËÐеĴú ......