根据某字符(字符串)分割字符串

var 
sl: TStringList; 
str: string; 
i: Integer; 
begin 
str := 'aa,b b,cc,dd'; 
sl := TStringList.Create; 
sl.Delimiter := ','; 
sl.DelimitedText := str; 
for i := 0 to sl.Count - 1 do 
ShowMessage(sl[i]); 
sl.Free
end;
这样写，对于有空格的字符会有BUG的

可以采取下列做法：
uses IdStrings 
var 
sl: TStringList; 
str: string; 
i: Integer; 
begin 
str := 'aa,b b,cc,dd'; 
sl := TStringList.Create; 
SplitColumns(str, sl, ',');//该函数没有上述的BUG 
for i := 0 to sl.Count - 1 do 
ShowMessage(sl[i]); 
sl.Free;
end;