来看下,这是怎么回事啊?
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;
倒过来,为什么什么都不显示.
[解决办法]
for i:=rs.count-1 to 0 do
要改为:
for i:=rs.count-1 downto 0 do
--------------------------------
http://kmok.cn/
