Random ohne Dublette

[xaromz]

Hallo,

das ist ganz einfach. Du musst Dir nur merken, welche Zahl schon gekommen ist:

Delphi-Quellcode:

var
  SchonGehabt: array [1..6] of Boolean;

// Zurücksetzen
procedure InitRandom;
var
  I: Integer;
begin
  for I := 1 to 6 do
    SchonGehabt[I] := False;
end;

// Zufallszahl erzeugen
function GetRandom: Integer;
begin
  repeat
    Result := Random(6) + 1;
  until not SchonGehabt[Result];
  SchonGehabt[Result] := True;
end;



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

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Zufall:= GetRandom;
  Label1.Caption := IntToStr(Zufall); 
end;

Gruß
xaromz