Ergebnis der Suchanfrage

• Forum: Multimedia

  immer noch beim kürzen!

    Delphi
    by Scryless, 29. Nov 2003
  Ja,ich hab den Kürzenvorschlag:
  
  {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;