生成任意位数和任意组数的随机数的实现(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.