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 listview高速添加数据

Delphi mediaplayer1 设置音量

Delphi 10 seattle的android应用程序中使用参数启动服务

Delphi文件无法拖拽功能失效

Delphixe5如何获取android手机sim卡串号

Delphi windows 编程[23] - 快捷键资源

Delphi winapi: getparent - 获取指定窗口的父窗口句柄

Delphi firedac,ado性能测试

Delphi memo 滚动条 自动滚到最后一行

tsqlconnection连接mysql(utf8)的问题

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

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