Division by zero - Teilen durch 0

[HackZu]

Zitat von jfheins:

Habs

Zitat von HackZu:

Delphi-Quellcode:

procedure TTestBruchrechner.BAdditionClick(Sender: TObject);
begin
  self.setzeEingabe;
  hatBruchrechner.Addition(hatBruch1, hatBruch2); // Was passiert mit dem Rückgabewert? genau => nix ^^
  self.zeigeErgebnis;
end;

Okay, klingt einleuchtend.^^ Hast du vielleicht eine Idee, wie ich das regeln könnte?

Das habe ich ja bereits:

Delphi-Quellcode:

procedure TTestBruchrechner.zeigeErgebnis;
begin
  LZaehlerErgebnis.Caption:=IntToStr(hatErgebnisbruch.gibZaehler);
  LNennerErgebnis.Caption:=IntToStr(hatErgebnisbruch.gibNenner);
end;

Und so sieht jetzt die "neue" Addition aus:

Delphi-Quellcode:

function Bruchrechner.Addition(pBruch1,pBruch2: Bruch): Bruch;
begin
  result:=Bruch.init;
  result.setzeNenner(pBruch2.gibNenner * pBruch1.gibNenner);
  result.setzeZaehler(pBruch1.gibZaehler * pBruch2.gibNenner + pBruch2.gibZaehler * pBruch1.gibNenner);
  result.KuerzeVoll;
end;

Wie stelle ich das jetzt an, dass diese Werte übergeben werden? Wenn das jemand wüsste, dann könnte ich zufrieden schlafen gehen.