mehrere Zufallszahlen, dürfen aber nicht gleich sein

[Luckie]

Auf die Schnelle:

Delphi-Quellcode:

type
  TIntArray = array of Integer;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);

  function IsInIntArray(AIntArray: TIntArray; z: Integer): Boolean;
  var
    i: Integer;
  begin
    result := False;
    for i := 0 to length(AIntarray) - 1 do
    begin
      if z = AIntArray[i] then
      begin
        result := True;
        break;
      end;
    end;
  end;

var
  IntArray: TIntArray;
  cnt: Integer;
  i: Integer;
  z: Integer;
  s: string;
begin
  SetLength(IntArray, 4);
  cnt := 0;

  while cnt < 4 do
  begin
    z := Random(99);
    if not IsInIntArray(IntArray, z) then
    begin
      IntArray[cnt] := z;
      Inc(cnt);
    end;
  end;

  for i := 0 to length(IntArray) - 1 do
    s := s + IntToStr(IntArray[i]) + ' ';
  ShowMessage(s);
end;

Da müsste man natürlich noch eine Funktion rausmachen oder so.