Ratezahl 2 Delphi (leicht)

[Aurelius]

Hör auf mkinzler Mit den Bereichen ist das besser und auch einfacher zu implementieren.

So ungefähr könnte die Abfrgae aussehen:

Delphi-Quellcode:

procedure TForm1.Vergleiche(Sender: TObject);
begin
count := count + 1;
Label4.Caption := IntToStr( count);
if count = 10 then
begin
  Label4.Caption := 'Maximale Rateanzahl erreicht, die Lösung ist:      , Neue runde?';
  BRaten.Enabled := false ;
  Label7.Caption := IntToStr ( Zahl);
end;

if StrToInt(EEingabe.Text) > Zahl then
begin
 PAntwort.Color := clred;
 if (abs(zahl - eingabe) > 0) and (abs(zahl - eingabe) < 5) then PAntwort.caption := 'Du bist ganz nah dran, aber die Zahl ist zu groß!' else
 if (abs(zahl - eingabe) > 5) and (abs(zahl - eingabe) < 15) then es PAntwort.captin := 'Es wird wärmer, aber noch ist die Zahl zu groß...' else
 ...
end;

if StrToInt (EEingabe.Text) < Zahl then
begin
 PAntwort.Color := clred;
 if (abs(zahl - eingabe) > 0) and (abs(zahl - eingabe) < 5) then PAntwort.caption := 'Du bist ganz nah dran, aber die Zahl ist noch etwas zu klein!' else
 if (abs(zahl - eingabe) > 5) and (abs(zahl - eingabe) < 15) then es PAntwort.caption := 'Es wird wärmer, aber noch ist die Zahl zu klein...' else
 ...
end;

if StrToInt (EEingabe.Text) = Zahl then
begin
 PAntwort.Caption := 'Richtig!';
 PAntwort.Color := cllime      ;
 Label6.Caption := 'Ihr habt gewonnen!!! Probiert es gleich nochmal'
end;

PS: Wieso wurde der Code nicht richtig formatiert?
PPS: schon besser