Zufallszahl ziehen ohne wiederholung

[Jens Hartmann]

Hallo,

Versuch mal sowas

Delphi-Quellcode:

 

procedure TForm1.Button1.Click(Sender: TObject);
var
z : integer; 
begin 
randomize; 
z := random(40)+1; //Zufallszahl im Bereich 1-40 
end;

Achso, du musst noch eine Schleife einbauen, die abfragt, welche Zahlen schon waren.

MFG

Jens