function aaa(input:sting):TSTringList;//tstringlist类似一个字符串树祖
var I:integer;
sTemp:String;
begin
list1:=TStringList.Create;
s:='';
for i:=1 to length(input) do
begin
if Input[i]=' ' then //空格
begin
List1.Add(s);
S:='';
end;
s:=s+Input[i]
end;
List1.Add(s);
result := List1; //Pascal 的返回值参数固定为 result
end;