Division by zero - Teilen durch 0

[HackZu]

Zitat von divBy0:

Was hat den pFaktor für einen Wert?

Das ist ja das Problem, wir haben diese Unit aus einem alten Projekt übernommen, bei dem der Benutzer den Faktor eingeben musste (kuerzeUm) oder pFaktor den Wert des ggT annahm (kuerzeVoll) mit dem dann gekürzt wurde, daher meine Frage, wie ich das kuerzeUm auf das neue Projekt anpassen muss?

Zur Zeit sieht das halt so aus:

Delphi-Quellcode:

procedure Bruch.KuerzeUm(pFaktor: integer);
begin
  if  pFaktor <> 0 then
    begin
       if ((zZaehler MOD pFaktor = 0) and (zNenner MOD pFaktor = 0)) then
         zZaehler := zZaehler div pFaktor;
         zNenner := zNenner div pFaktor;
    end;
end;

function Bruch.ggt(zZaehler,zNenner:integer): integer;
begin
  if zZaehler = zNenner then result := zZaehler
  else
  result := ggt(min(zNenner,zZaehler), abs(zZaehler-zNenner));
end;

procedure Bruch.KuerzeVoll;
begin
  self.KuerzeUm(self.ggT(zZaehler,zNenner));
end;