//生成固定位数的随机数
Function getRandom(n:integer):string;
var
i:integer;
begin
randomize;
for i:=1 to n do
begin
result:=result+inttostr(random(10));
end;
end;
//生成固定位数的随机数
Function getRandom(n:integer):string;
var
i:integer;
begin
randomize;
for i:=1 to n do
begin
result:=result+inttostr(random(10));
end;
end;