Division by zero - Teilen durch 0

[HackZu]

Zitat von divBy0:

Daher kommt mein Nick...

Wie rufst du die Funktion denn auf? Sieht eigentlich ganz gut aus.

Delphi-Quellcode:

procedure TTestBruchrechner.BAdditionClick(Sender: TObject);
begin
  self.setzeEingabe;
  hatBruchrechner.Addition(hatBruch1, hatBruch2);
  self.zeigeErgebnis;
end;

mBruchrechner

Delphi-Quellcode:

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