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 utf8乱码问题

Delphi 在长文件名和短文件名之间转换

Delphi 监视剪贴板内容

Delphi 选择一张照片，让照片缩略图显示在图片控件中间

indy断点续传

Delphi 新版内存表 fdmemtable

Delphi文件是否正在使用

Delphi uac相关代码

Delphi 判断 文本文件 utf-8 bom头

Delphi在桌面上显示文字代码

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

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