用到的组件:按钮一个,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 .
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 .