Bruchrechenprogramm mit Selbsteingabe

[timmy19]

Zitat von DeddyH:

Woher soll ich das wissen, ich weiß doch nicht, was Du geschrieben hast?

Hoffe ich habe es richtig gemacht, habs so geschrieben:

Delphi-Quellcode:

   if IntToStr(Ergebnis) = EditZahl5.Text then
  begin
    if InttoStr(gggT) = EditZahl6.Text then
  Showmessage('Sehr gut gemacht, weiter so!!!')
    else
    showmessage('Das war nicht richtig, versuch es noch einmal!')     ;
  end
else
showmessage('Fast richtig, probier es noch einmal!')      ;
  begin
    if InttoStr(gggT) = EditZahl6.Text then
     showmessage('Der Nenner ist richtig, nur der Zähler ist falsch!')
    else
     showmessage  ('Das war nicht richtig, versuch es noch einmal!') ;
  end;