Delphi 如何在memo中 生成一些数字? 编程高手帮帮忙啊

来源：百度知道 编辑：UC知道 时间：2024/05/25 11:36:37
比如 按button后在memo中生成100个随机的5位数字(00000-99999)

该怎样做呢？ 希望能给个代码！

var n,i,k:integer;
var t:String;
Randomize;
n:=Random(99999);
t:=inttostr(n);
k:=length(t);
for i:=1 to (5-k) do t:='0'+t; //补0

memo1.lines.add(t);

//呵呵手写的,可能会有一点编译错误啦,,delphi上调试修改下,,,,