Nur x Nachkommastellen von Float

[mmw]

hallo,
evtl. so (Rohversion)

Delphi-Quellcode:

function GetDigits(Value:EXTENDED;digit:integer):Extended;

var
   value1,
   value2:extended;

begin
 value1:=0;
 value2:=0;
  value1:=frac(value);
  value2:=Power(10,digit);
 result:=trunc(value1*value2);
end;

Gruß