delphi repeat 递增/递减输出


本文整理自网络,侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=0;
repeat
  i:=i+1;
  memo1.Lines.Add(IntToStr(i));
until i=10;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=10;
repeat
  i:=i-1;
  memo1.Lines.Add(IntToStr(i));
until i=0;
end;

相关阅读 >>

Delphi 获取当前鼠标指针位置文本

Delphi package 把函数单元做成bpl调用

Delphi bmp jpg 转换保存

Delphi windows服务控制单元

Delphi dblookupcombobox组件的使用方法

Delphi 获取 access 数据库所有表

Delphi有无生成空格的函数,like vb的space(1)

Delphi 实现卸载windows应用程序(类似360软件管家-卸载程序)

Delphi getwindowtext - 获取窗口标题

Delphi html转义

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



打赏

取消

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

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

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

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

评论

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