Division by zero - Teilen durch 0

[jfheins]

Unter der Annahme, dass hatErgebnisBruch ein Feld von TTestBruchrechner des Typs Bruch ist:

Delphi-Quellcode:

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

Könnte gehen
(Bin jetzt auch müde .....)