以前一直是自已写函数处理，没想到Delphi有一个自带的。

 

 ExtractStrings：用指定的分割符分割一个字符串为多个子字符串 

给你一个例子 
var 
    S:   string; 
    SL:   TStringList; 
begin 
    S   :=   '123,456,789 '; 
    SL   :=   TStringList.Create; 
    ExtractStrings([ ', '],   [],   PChar(S),   SL); 
    ShowMessage(SL.Text); 
    SL.Free; 
end;