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;