Zahlen nur einmal vorkommen lassen

[DeddyH]

Dann erstellt Dir eine Liste (z.B. TList oder meinetwegen auch TStringlist), pack da die Zahlen rein und zieh sie zufällig wieder raus.

Delphi-Quellcode:

while Liste.Count > 0 do
  begin
    Index := Random(List.Count);
    Zahl := Liste[Index];
    Liste.Delete(Index);
  end;