今天才发现,Delphi的For 循环竟是这样运行: For i:=1 to 3 do begin .... end; i 的值变化是这样的: 3 2 1 For i:=3 to downto 1 do begin .... end; i 的值是这样变化的: -3 -2 -1 真搞不明白,现在不敢用For了,只好用while
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
s: string;
begin
for i:=3 downto 1 do
s := s + IntToStr(i) + ', ';
showMessage(s);
end;