Delphi repeat Until 运用

本文整理自网络，侵删。

 
procedure TForm3.SpeedButton1Click(Sender: TObject);
Var
  I:integer;
begin
  I:=0;
  repeat
    I:=I+1;
  until I=10;
  ShowMessage(INTTOSTR(i));
end;
 

相关阅读 >>

Delphi 连接 ssl tls 1.2

Delphi 下载函数

Delphi 取时间戳

Delphi 防止系统睡眠

Delphi 获得memo、richedit的光标位置

Delphi removeinvalid截取字符串某个字符前面的字符

Delphi 优化mdb文件

Delphi 禁止窗口移动

Delphi 读取文件的md5值

Delphi idhttp的用法

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

转载请注明出处：木庄网络博客 » Delphi repeat Until 运用