Division by zero - Teilen durch 0

[freak4fun]

Delphi-Quellcode:

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