Halliiii , Brüche kürzen?

[himitsu]

http://www.FrankNStein.de/Smiley-Wolke.gif Hallöle Scryless,

was ist den aus dem Teil zum kürzen geworden ?

Zitat von Himitsu (siehe Link: [url=http://www.delphipraxis.net/internal_redirect.php?t=13789:

Was schreib i ... hinein?[/URL])]

Delphi-Quellcode:

{kürzen}
For I := Min(Abs(ez), Abs(en)) downto 2 do
  If (ez mod I2 = 0) and (en mod I2 = 0) Then Begin
    ez := ez div I2;
    en := en div I2;
    Break;
  End;

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif