var
temp:string;
i:integer;
rs:Tstringlist;begin
rs:=tstringlist.Create;
temp:=edit1.Text; //比如edit1.text的内容为'This is a book'
i:=pos(chr(32),temp);
while i<>0 do
begin
rs.Add(copy(temp,0,i-1));
delete(temp,1,i);
i:=pos(chr(32),temp);
end;
rs.Add(temp); for i:=0 to rs.Count-1 do
showmessage(rs.Strings[i]); //这样可以输出,但是如果换成 for i:=rs.count-1 to 0 do 就什么都没有
end;
倒过来,为什么什么都不显示.
temp:string;
i:integer;
rs:Tstringlist;begin
rs:=tstringlist.Create;
temp:=edit1.Text; //比如edit1.text的内容为'This is a book'
i:=pos(chr(32),temp);
while i<>0 do
begin
rs.Add(copy(temp,0,i-1));
delete(temp,1,i);
i:=pos(chr(32),temp);
end;
rs.Add(temp); for i:=0 to rs.Count-1 do
showmessage(rs.Strings[i]); //这样可以输出,但是如果换成 for i:=rs.count-1 to 0 do 就什么都没有
end;
倒过来,为什么什么都不显示.
要改为:
for i:=rs.count-1 downto 0 do --------------------------------
http://kmok.cn/