Division by zero - Teilen durch 0

[freak4fun]

Delphi-Quellcode:

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