Thema: Delphi Zahlen Ratespiel Fehler

Einzelnen Beitrag anzeigen

Benutzerbild von ibp
ibp

Registriert seit: 31. Mär 2004
Ort: Frankfurt am Main
1.511 Beiträge
 
Delphi 7 Architect
 
#8

Re: Zahlen Ratespiel Fehler

  Alt 25. Okt 2004, 13:21
und noch besser, wenn du nur einmal wandelst...

Delphi-Quellcode:
procedure TGUI.btokClick(Sender: TObject);
var zahl: integer;
begin
  zahl:= strtoint(Tipp.text);
  if zahl= wuerfel1.liesFZahl then
    LaStatus.caption := 'Du Ratekönig'
  else if zahl< wuerfel1.liesFZahl then
    LaStatus.caption := 'Die Zahl ist zu klein.'
  else if zahl> wuerfel1.liesFZahl then
    LaStatus.caption := 'Die Zahl ist zu groß.';
  LaStatus.Visible := true;
  Mit Zitat antworten Zitat