Bruchrechenprogramm mit Selbsteingabe

[timmy19]

Zumindest gibt er mir jetzt nur eine showmessage aus. Aber die "komplett richtig" showmessage will er mir immer noch nicht ausgeben.

Delphi-Quellcode:

  if IntToStr(Ergebnis) = EditZahl5.Text then
  begin
    if InttoStr(gggT) = EditZahl6.Text then
    showmessage('Sehr gut gemacht!')
    else
     showmessage('Das ist nicht ganz richtig, versuch es noch einmal')
  end
else
  begin
    if InttoStr(gggT) = EditZahl6.Text then
    showmessage('Das ist nicht ganz ricthig, versuch es noch einmal')
    else
    showmessage('Das ist leider falsch, versuch es doch noch einmal')
  end;

end;