Question

Delphi如何读取空格分开的字符串？

我有一个字符串例如aaa bbb ccc ddd eee fff ggg，如何读取空格分开的这些字符串并赋给不同的值，即Str1=aaa, Str2=bbb, Str3=ccc, Str4=ddd, Str5=eee, Str6=fff, Str7=ggg.
Str1:=aaa, Str2:=bbb, Str3:=ccc, Str4:=ddd, Str5:=eee, Str6:=fff, Str7:=ggg.

Answer 1

var
s: string;
l: TStrings;
begin
s := 'aaa bbb ccc ddd eee fff ggg';
l := TStringList.Create;
try
l.Text := ReplaceString(s, ' ', sLineBreak, []);
Str1 := l[0];
Str2 := l[1];
Str3 := l[2];
// ...
finally
l.Free;
end;
end;