Zufallszahl ziehen ohne wiederholung

[calculon]

Zitat von _frank_:

aus deinem code mal fix geändert (wie gesagt, viel anders ists nicht):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Pottich: TList;
  i, z: integer;
begin
  Pottich := Tlist.Create;
  try
    for i := 1 to 40 do
      Pottich.Add(TObject(i));
    for i := 1 to 15 do
      begin
        z := random(Pottich.Count);
        ShowMessage(IntToStr(Integer(Pottich[z])));
        Pottich.Delete(z);
      end;
  finally
      Pottich.Free;
  end;
end;

dein code war übrigends nicht ganz lauffähig... das IntToStr bei der showmessage war zuviel

Mist...da war jemand schneller...und das um die Zeit

Gute Nacht

Ist wirklich sinnvoller und genauso leicht. TList kannte ich davor jedoch nicht. Hast mich überzeugt

Gruß
--