Bruchrechenprogramm mit Selbsteingabe

[timmy19]

Zitat von DeddyH:

Delphi-Quellcode:

if Bedingung1 then
  begin
    if Bedingung2 then
      //beide Bedingungen treffen zu
    else
      //nur Bedingung1 ist richtig
  end
else if Bedingung2 then
  //nur Bedingung2 trifft zu
else
  //komplett falsch;

Das kapier ich jetzt grad gar nicht, kannst dus mir genauer erklären? Tut mir echt leid...

[Bummi]

Für die Basics:

http://www.christian-stelzmann.de/artikel/crashkurs.htm

[DeddyH]

Und nochmal anders formatiert:

Delphi-Quellcode:

if Bedingung1 then
  //Bedingung1 trifft schonmal zu
  begin
    if Bedingung2 then
      //beide Bedingungen treffen zu
    else
      //nur Bedingung1 ist richtig
  end
else
  //Bedingung1 triff nicht zu
  begin
    if Bedingung2 then
      //nur Bedingung2 trifft zu
    else
      //komplett falsch;
  end;

[timmy19]

Zitat von DeddyH:

Und nochmal anders formatiert:

Delphi-Quellcode:

if Bedingung1 then
  //Bedingung1 trifft schonmal zu
  begin
    if Bedingung2 then
      //beide Bedingungen treffen zu
    else
      //nur Bedingung1 ist richtig
  end
else
  //Bedingung1 triff nicht zu
  begin
    if Bedingung2 then
      //nur Bedingung2 trifft zu
    else
      //komplett falsch;
  end;

Ok, jetzt gibt er mir wenigstens Showmessages aus. Aber teilweise auch 2 Stück, wie kann man das lösen?

[DeddyH]

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

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

[DeddyH]

Nee, nicht ganz. Nochmal:

Delphi-Quellcode:

if Bedingung1 then
  begin
    if Bedingung2 then
      //beides richtig
    else
      //nur Bedingung1 richtig, Bedingung2 falsch
  end
else 
  begin
    if Bedingung2 then
      //Bedingung1 falsch, Bedingung2 richtig
    else
      //komplett falsch
  end;