本文整理自网络,侵删。
procedure TForm1.btn1Click(Sender: TObject);var c:Integer;begin for c:=5 downto 0 do begin ShowMessage(IntToStr(c)); end;end;
for c:=0 to 5 do begin ShowMessage(IntToStr(c)); end;end;end.
其实就是证明循环式从小到大还是从大到小
相关阅读 >>
Delphi 从 twebbrowser中获得当前输入处的链接
Delphi 与 xml 示例(直接利用ixmldocument)
更多相关阅读请进入《Delphi》频道 >>