Halliiii , Brüche kürzen?

[Scryless]

halli hallo , mein Bruchrechner ist funktionsfähig,es bleibt dennoch die gekürzte Form des ergebnises aus.wie genau kürzt man einen Bruch,bzw.wie programmiert man "KÜRZEN" eines Bruches,wenn ich den Zähler in einem editfeld habe und einen Nenner in einem editfeld habe,wie bekomme ich das gekürzte ergebnis programmiert,wenn Zähler im Editfeld "e_ergz" und der Nenner im Editfeld "e_ergn" heißt.THANKS..!

[sakura]

Und wieder muss ich unsere Suche anpreisen kürzen. Unter anderem findest Du: http://www.delphipraxis.net/internal...ct.php?t=12994

......

[Luckie]

Warum steht das in "Klatsch und Tratsch"?

[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