Thema: Delphi Für 2 mach 1

Einzelnen Beitrag anzeigen

Benutzerbild von Wormid
Wormid

Registriert seit: 26. Aug 2003
Ort: Steinfurt
292 Beiträge
 
Delphi XE2 Professional
 
#10

Re: Für 2 mach 1

  Alt 13. Nov 2003, 21:42
Nach oben Gerundete version:

Delphi-Quellcode:
var
  Gefuttert: Integer;
begin
  SetRoundMode(rmUp);
  Gefuttert := Trunc(RoundTo(5/2, 0));
end;
Nicht so quick, und nicht so dirty...

Setzt die Unit "Math" vorraus.


Bei der nicht gerundeten Version bleibt es bei 5/2...


Gruß

Wormid
Debuggers don't remove Bugs, they only show them in Slow-Motion.
  Mit Zitat antworten Zitat