Hilfe bei nem Algorythmus

[Duffy]

Hallo Reloaded,
ist es sowas, was Du suchst?

Delphi-Quellcode:

procedure CreateRandomNumbers(var A: array of Integer;
                              HighNumber: Integer = 49;
                              ZeroNumber: Boolean = False);
var
  I: Integer;

  function CheckDouble(const A: array of Integer; Position: Word): Boolean;
  var
    I: Integer;
  begin
    Result := False;
    for I := Low(A) to High(A) do
    begin
      if I = Position then
        Continue;
      if A[I] = A[Position] then
      begin
        Result := True;
        Break;
      end;
    end;
  end;

begin
  ZeroMemory(@A, SizeOf(A));
  for I := Low(A) to High(A) do
  begin
    if ZeroNumber then
      repeat
        A[I] := Random(HighNumber) + 1;
      until not CheckDouble(A, I)
    else
      repeat
        A[I] := Random(HighNumber) + 1;
      until (A[I] <> 0) and (not CheckDouble(A, I));
  end;
end;

"Randomize" sollte vor dem Aufruf der Funktion erfolgen.
bye