关于随机数

Question

想添加一个能产生随机数的功能，6位不重复的数字

Answer 1

radomize; 
x:=radom(999999);

Answer 2

var str: string;
randomize;
str:= inttostr(RandomRange(1111111,99999999));

Answer 3

function GetRandom(iSize: Integer): string;
var
  i: Integer;
  iTemp: Integer;
begin
  i := 0;
  Result := '';
  Randomize;
  while i < iSize do
  begin
    iTemp := Random(10);
    if Pos(IntToStr(iTemp), Result) = 0 then
    begin
      Result := Result + IntToStr(iTemp);
      i := i + 1;
    end;
  end;
end;

Answer 4

function GetRandom(iSize: Integer): string;
var
  i: Integer;
  iTemp: Integer;
begin
  i := 0;
  Result := '';
  Randomize;
  while i < iSize do
  begin
    iTemp := Random(10);
    if Pos(IntToStr(iTemp), Result) = 0 then
    begin
      Result := Result + IntToStr(iTemp);
      i := i + 1;
    end;
  end;
end;
这个好