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版(dll部分)

Delphi 获取unixtime

Delphi 下载一个jpg图片保存为bmp图片

Delphi fmx 绘制非常精确的 时分秒针

Delphi 根据盘符弹出u盘

Delphi 代替pos的函数

Delphi 中判断一个字符是中文的方法

Delphi 根据扩展名的文件搜索

Delphi 向其他程序发送模拟按键

Delphi 在 listbox 中放置一��可�� item 的 tedit �m件

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

转载请注明出处：木庄网络博客 » delphi repeat 递增/递减输出