delphi for 循环 downto用法


本文整理自网络,侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := StrToInt(Edit1.Text) downto 1 do
    Memo1.Lines.insert(0, 'Valeur = ' + i.ToString);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to StrToInt(Edit1.Text) do
    Memo1.Lines.insert(0, 'Valeur = ' + i.ToString);
end;

相关阅读 >>

Delphi与正则表达式

Delphi 只用一条语句就能使tbitmap反色

Delphi edit呈横线效果

Delphi stringgrid1读取加载excel文件

Delphi一个抓屏的函数

Delphi 在tunimemo中复制和粘贴选定的文本

Delphi webbrowser同时访问两个网址导致程序出错的解决办法

Delphi 改变进程优先级

Delphi 进程程序多开调用单元

Delphi xe vcl - tlinklabel(链接标签)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...