Zahlenspiel 3*mal gewinnen dann verloren anzeigen

**ScrollbarKopf**

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.

zusammenfalten · markieren

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') ;

Zahlenspiel 3*mal gewinnen dann verloren anzeigen

Zahlenspiel 3*mal gewinnen dann verloren anzeigen

Forumregeln