habe jetzt soviel
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
x,x1: integer;
ergebnis: boolean;
begin
randomize;
x:= random(100)+1;
edit2.text:= inttostr(x);
x1:= strtoint (edit1.text);
if x=x1 then showmessage ('Gratulation Sie haben gewonnen')
else showmessage ('Sie haben noch 2 versuche');edit1.clear; edit2.clear; ;
ich möchte halt erreichen das er mir wenn es 3 mal falsch ist sagt das das spiel vorebi sit und er dasss dann schließt