Forum: Object-Pascal / Delphi-Language
Delphi
by freak4fun,
24. Sep 2008
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;
Forum: Object-Pascal / Delphi-Language
Delphi
by freak4fun,
24. Sep 2008
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;