Zufallszahl ziehen ohne wiederholung

[_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