求产生一个由12个随机0~9自然数组成的字符串的算法、

Question

比如7849234739024这样一个随机数字组成的的字符串

Answer 1

var i:integer;
    s:string;
begin
  Randomize;
  for i:= 1 to 12 do
  s:= s + IntToStr(Random(10));
  ShowMessage(s);
end;

Answer 2

这样也行var i:integer;
    s:array [0..11] of char;
begin
  Randomize;
  for i:= 0 to 11 do
  s[i]:= Chr(Random(10));
  ShowMessage(StrPas(s));
end;

Answer 3

不知道直接Random(1000000000000）去小数位
再转string行不行，呵呵，偶不玩Delphi比较久了

Answer 4

Randomize;
ShowMessage(IntToStr( Trunc(Random()*10000000000)));

Answer 5

不知道直接Random(1000000000000）去小数位
再转string行不行，呵呵，偶不玩Delphi比较久了
--------------------------不行的

Answer 6

var i:integer;
    s:string;
begin
  Randomize;
  for i:= 1 to 12 do
  s:= s + IntToStr(Random(10));
end;