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]);
FreeAndNil(sl);
end;