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的tstreamreader逐行读取文本文件

Delphi10.3构造一个json数据的第二种方法，并格式化输出

Delphi 网上获取北京时间取字符串与字符串中间的字符

Delphi 字符串保存为 txt文件

Delphi sysutils.isdelimiter - 判断字符串的某个位置是不是指定的字符串

Delphi 从数组中任取一个

Delphi怎样读取excel表的所有字段名

Delphi代码，直截注入别的进程，之后直截运行在别的进程中的代码

Delphi学习之资源文件dll的制作及使用

Delphi windows 编程[10] - wm_lbuttondown、wm_lbuttonup 和 wm_mousemove 消息

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

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