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 用idhttp获取utf-8编码的网页

Delphi xe6新增特性及功能

Delphi的tclientsocket组件和tserversocket组件(c/s)说明

Delphixe8中获取apk的签名信息

Delphi idhttp组件+idhttpserver组件实现文件下载服务

Delphi开发获取文件md5值

Delphi 获取超gb大文件大小

Delphi中比较两个字符串相似性的百分比算法

自己写的app如何禁掉安卓锁屏

Delphi 生成指定范围和个数的不重复的随机整数

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

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