[Rechentrainer] Fehlermeldungen

[Stef]

Hi Leute,
ich bin ein ziemlich blutiger Anfänger in Delphi, habe bisher nur Erfahrungen mit PHP und CSS gesammelt.
Ich habe ein kleines Projekt angefangen. Es soll eine Art Rechentrainer werden, der einem immer zufällige Aufgaben stellt mit verschiedenen Einstellungsmöglichkeiten (Schwierigkeitsgrad usw)

Jetzt kommen bei mir dummerweise ein Haufen unerklärlicher Fehlermeldungen:

Delphi-Quellcode:

procedure TForm1.okClick(Sender: TObject);
var ergebnis, Ezahl1, Ezahl2, eingabe : real; rechenart :string;
begin
Ezahl1 := StrToFloat(Zahl1.caption);
Ezahl2 := StrToFloat(Zahl2.caption);
rechenart := Rechenzeichen.caption;

if rechenart = '+' then
   begin
   ergebnis := Ezahl1 + Ezahl2;
   end
else
    begin
    if rechenart = '-' then
       begin
       ergebnis := Ezahl1 - Ezahl2;
       end
    else
        begin
        if rechenart = '*' then
           begin
           ergebnis := Ezahl1 * Ezahl2;
           end
        else
        begin
        ergebnis := Ezahl1 / Ezahl2;
        end
        end
    end
end;

eingabe := StrToFloat(Erg.caption);
if input = ergebnis  then
   begin
   info.Visible := True;
   info.caption := 'Das Ergebnis' input ' ist richtig!';
   end
else
    begin
    info.Visible := True;
    info.caption := 'Das Ergebnis ist falsch!!';
    end;
end;

end;

Bei der Letzten If-Abfrage kommt folgende Fehlermeldung: [Fehler] Unit1.pas(131): Deklaration erwartet, aber Bezeichner 'eingabe' gefunden

Woran liegt das? Hab ich mich mit den "end/;-s" vertan??

Wäre echt super, wenn ihr mir helfen könntet :o :-D

Gruß

Stef

[Progman]

vielleicht ein 'end' zuviel oder zu wenig? (habs jetzt nicht gezählt)
Hinweis: besser formatieren (Einrückungen) erleichtert den Überblick ;)

[Whookie]

Ohje ... bitte versuch dich mal mit den Grundlagen vertraut zu machen!

Das ganze könnte dann wie folgt aussehen:

Delphi-Quellcode:

procedure TForm1.okClick(Sender: TObject);
var
  ergebnis,
  Ezahl1,
  Ezahl2,
  eingabe : real;
  rechenart :string;
begin
  Ezahl1 := StrToFloat(Zahl1.text);
  Ezahl2 := StrToFloat(Zahl2.text);
  rechenart := Rechenzeichen.text;

  if rechenart = '+' then
  begin
     ergebnis := Ezahl1 + Ezahl2;
  end
  else
  begin
    if rechenart = '-' then
    begin
      ergebnis := Ezahl1 - Ezahl2;
    end
    else
    begin
      if rechenart = '*' then
      begin
        ergebnis := Ezahl1 * Ezahl2;
      end
      else
      begin
        ergebnis := Ezahl1 / Ezahl2;
      end
    end
  end;

  eingabe := StrToFloat(Erg.Text);
  if eingabe = ergebnis  then
  begin
    info.Visible := True;
    info.caption := 'Das Ergebnis '+Erg.Text+' ist richtig!';
  end
  else
  begin
    info.Visible := True;
    info.caption := 'Das Ergebnis ist falsch!!';
  end;
end;

vorausgesetzt du verwendest auch noch die richtigen controls :wink: !

[Stef]

Ok, danke für die Antworten :)
Jetzt funktioniert es! Und das mit dem Formatieren werde ich mir mal zu Herzen nehmen =)

Noch zwei andere Fragen:

Delphi-Quellcode:

info.color :=clGreen;

-Damit sollte sich ja eigentlich die Schriftfarbe von diesem Label in Grün ändern? (Vorher rot)
Aber jetzt ändert sich dummerweise nur die Hintergrundfarbe in Grün und die Schriftfarbe bleibt tor-.-

Und wie kann ich das so einrichten, dass man nachdem man eine Zahl in ein Edit-Feld eingegeben hat nurnoch Enter drücken muss um den Button zu aktivieren??

Gruß

Stef

[Progman]

Delphi-Quellcode:

info.Font.Color:=clGreen;

[Namenloser]

Zitat:

Zitat von Stef

Delphi-Quellcode:

info.color :=clGreen;

-Damit sollte sich ja eigentlich die Schriftfarbe von diesem Label in Grün ändern? (Vorher rot)
Aber jetzt ändert sich dummerweise nur die Hintergrundfarbe in Grün und die Schriftfarbe bleibt tor-.-

Hehe, man merkt, dass du von CSS kommst :mrgreen:
In Delphi bedeuted Label.Color tatsächlich die Hintergrundfarbe, weil die Schrift nochmal als extra Objekt gekapselt ist. Du kannst auf die Schriftfarbe per Label.Font.Color zugreifen.

Zitat:

Zitat von Stef

Und wie kann ich das so einrichten, dass man nachdem man eine Zahl in ein Edit-Feld eingegeben hat nurnoch Enter drücken muss um den Button zu aktivieren??

Das kannst du erreichen, indem du im OnKeyPress-Ereignis deines Edits den Enter-Key abfängst und dann den Entsprechenden Event-Handler aufrufst. Beispiel:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then // #13 ist der Enter-Key
  begin
    Button1.Click; // Für Button1 deinen gewpnschten Button einsetzen
    key := #0; // Ohne diese Zeile ergibt es einen normalerweise unerwüschnten Piepton
  end;
end;

[r_kerber]

Da Deine erste Frage offensicht beantwortet ist, ist dieser Thread abgeschlossen. Neue Fragen bitte in einem anderen Thread stellen. Und außerdem würden sich die neuen Fragen eventuell von selbst beantworten, wenn Du einen Blick in die OH wirfst.

* * * C L O S E D * * *