本文整理自网络,侵删。
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 sysutils.isdelimiter - 判断字符串的某个位置是不是指定的字符串
更多相关阅读请进入《Delphi》频道 >>