Zufallszahl ziehen ohne wiederholung

[jaenicke]

Zitat:

Delphi-Quellcode:

procedure TForm5.Button2Click(Sender: TObject);

var p,z,i:integer;

    liste: string;
begin
////////////////////////////////////////////////////////////////////////
  Randomize;
 // liste:='';
  //for i:=1 to gesamt do
    //liste:=liste+chr(i);
if length(liste)<=gesamt-anzahl then
  begin
    showmessage('Sie haben das Spiel erfolgreich beendet!');
    exit;
  end;

Erstens hast du eine lokale Variable liste, deine globale gleichnamige Variable wird also gar nicht benutzt...
Zweitens ist der Quelltext auskommentiert, der die Variable füllt...

So geht es bei mir:

Delphi-Quellcode:

procedure TForm5.Button2Click(Sender: TObject);

var p,z,i:integer;

    //liste: string;
begin
////////////////////////////////////////////////////////////////////////
  Randomize;
  liste:='';
  for i:=1 to gesamt do
    liste:=liste+chr(i);
if length(liste)<=gesamt-anzahl then