Hallo ich ahbe ein spiel gemacht wo in einem edit eine zahl zwischen 1-100 angezeigt wird und man unterbei selber eine zahl hineinschreiben kan wenn die zahl richtig ist hat amn gewonnen und cih will das amn drei versuche hat die richtige zahl einzutippen wenn die 3 versuche um sind soll angezeigt werden sie ahben 3*mal verloren das spiel ist zu ende.
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);
repeat
if x=x1 then showmessage ('Gratulation Sie haben gewonnen')
else showmessage ('Sie haben leider verloren');
until showmessage ('Sie haben leider verloren') * 3 ;
then showmessage (' Sie haben 3 mal verloren das spiel ist zuende') ;