这是用C#写的,你参考一下看能不能行Random randobj= new Random();labCode.Text=randobj.Next(1000,10000).ToString();
Randomize; i := random(999); while (i < 100) do i := random(999); edit9.Text:=inttostr(i);产生了100-999的数 条件可以自己改
var a:integer;randomize;a=trunc(random(100));