[Rechentrainer] Fehlermeldungen

[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 !