procedure TForm1.Button1Click(Sender: TObject);
begin
endwert:=StrToIntDef(Edit1.Text,100);
//mit sinnvollen Werten vorbelegen
versuche:=StrToIntDef(Edit2.Text,10);
Edit1.Text := IntToStr(endwert);
//bei Fehleingaben Standardwerte
Edit2.Text := IntToStr(versuche);
Label9.Caption:=IntToStr(versuche);
zahl:=random(endwert)+1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:='
';
// Alles zurücksetzen
Edit1.SetFocus;
Edit2.Text:='
';
Edit3.Text:='
';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
// schließen
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
eingabe:=StrToInt(Edit3.Text);
Label4.Caption:=IntToStr(eingabe);
If (eingabe>zahl)
then
Label6.Caption:='
größer'
else if (eingabe < zahl)
then
Label6.Caption:='
kleiner'
//das hier fehlte ganz, man konnte nie gewinnen ;)
else
MessageBox(
Handle,'
Treffer','
Glückwunsch',MB_OK
or MB_ICONINFORMATION);
dec(versuche);
//Anzahl der verbleibenden Versuche anzeigen
Label9.Caption := IntToStr(versuche);
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Edit1.SetFocus;
end;