Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Noobix93,
18. Jun 2008
Ist getestet, keine Probleme.
Mein Programm benutzt es um Dateien zu durchsuchen bisher hat sich noch keiner der über 300 Benutzern über irgendetwas beschwert.
Danke dir :wink:
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Noobix93,
18. Jun 2008
Mit dieser Procedur möchte ich ich Leuten helfen die eine kleine Suchfunktion in ihr Programm einbauen möchten.
Uses: ...,Math
function RoundToPointPosition(Number : Extended; PointPos : Byte): Extended;
Var
Multi:Integer;
begin
Multi:=Trunc(IntPower(2,PointPos));
Result := Round(Number * Multi)/Multi;