本文整理自网络,侵删。
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使用json解析调用淘宝ip地址库rest api 示例
Delphi ioutils tdirectory获取一个目录下所有文件名,包括子目录
Delphi strtofloat 将“字符型”转换成“浮点型”
Delphi �c 使用createoleobject后释放olevariant
更多相关阅读请进入《Delphi》频道 >>