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