生成任意位数和任意组数的随机数的实现(delphi)

用到的组件：按钮一个，Label标签两个，Text文本框两个，Memo一个(未做错误判断，如果输入非整数或者什么也不输，将会出错）

{此单元中所有的常量定义均以_c开头，所有的变量均以_v开头,我是初学者}

procedure TForm1.BtnRandomClick(Sender: TObject);

var

_vNum : integer; //用于想要得到的随机数位数

_vGroup : integer;//用于想要得到的随机数组数

_vI,_vJ : integer;//用于判断

_vResult : string;//用于得到生成的随机数

begin

MemoRandom.Clear;

_vNum :=StrToInt(EdInputNumber.Text);//随机数位数赋值

_vGroup := StrToInt(EdGroup.Text); //随机数组数赋值

_vI := 1;

Randomize; //随机数初始化，必须要，不然每次生成随机数将一样

while _vI <= _vGroup do

begin

for _vJ := 1 to _vNum do

_vResult := _vResult + IntToStr(Random(10));

{此for循环用于生成想得到的位数的随机数}

MemoRandom.Lines.Add(_vResult);//输出生成的随机数

_vResult := '';//当生成要的随机数并写入memo后，又将其清空，好进行下一次生成

_vI := _vI + 1;//计数，以达到我们要的组数

end;

{此while循环用于得到生成随机数的级数}

end;

end.