本文整理自网络,侵删。
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 firedac 获取mysql 数据库databases 列表
更多相关阅读请进入《Delphi》频道 >>