delphi Repeat Until 随机插入

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
var
  ValeurAleatoire: integer;
begin
  repeat
    ValeurAleatoire := random(100);
    Memo1.Lines.Insert(0, ValeurAleatoire.ToString);
  until (ValeurAleatoire = 50);
end;
 

相关阅读 >>

Delphi 新建文件 复制文件 重命名文件名时 文件存在自动重命名

Delphi 内存池

Delphi 把mp3做背景音乐

Delphi 仿dbnavigator方式

Delphi 枚举数组

Delphi tlistbox添加横向滚动条

用Delphi实现文件下载的几种方法

Delphi中messagebox用法

Delphi的idhttp报508 loop detected错误的原因

Delphi 系统托盘组件 ttrayicon 简介

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

转载请注明出处：木庄网络博客 » delphi Repeat Until 随机插入