hi,
willst du die Zahl runden oder willst du die Zahl als String abschneiden ?
Delphi-Quellcode:
////////////////////////////////////////////////////////////////////////////////
// Rundet einen Float nach x-Kommastellen
function RoundFloat(e: Extended; i: Integer): Extended;
var s: string; p: Integer;
begin
s := FloatToStr(e);
p := Pos(',', s);
if (p <> 0) and (Length(s) > i + 2) and (i > 0) then
begin
s := Copy(s, 1, p + i);
Result := StrToFloat(s);
end else Result := e;
end;
////////////////////////////////////////////////////////////////////////////////
// Kürzt einen String nach der x-ten Kommastelle
function RoundFloatStr(AValue: String; i: Integer): String;
var s: string; p: Integer;
begin
Result := AValue;
p := Pos(',', AValue);
if (p <> 0) and (Length(AValue) > i + 2) and (i > 0) then
begin
AValue := Copy(AValue, 1, p + i);
Result := AValue;
end;
end;