字符分割函数.

   1. function split(split_str : string ; line_str : string ) : TStrings ; 
   2. //字串分割 分割用字元 , 原始字串， 
   3. var 
   4. posi : integer ; 
   5. str : TStringList ; 
   6. l_str : string ; 
   7. begin 
   8. str := TStringList.Create; 
   9. posi := pos(split_str, line_str)  ; 
  10.  
  11. while (posi > 0)  do begin 
  12.       l_str := copy(line_str,1, posi-1) ; 
  13.       str.Add(l_str) ; 
  14.       line_str :=  copy (line_str , posi+length(split_str), length(line_str) - posi-length(split_str)) ; 
  15.       posi := pos(split_str, line_str)  ; 
  16. end ;  //while 
  17. str.Add(line_str) ; 
  18.  
  19. Result :=   str ; 
  20.  
  21. end ;