Floattostring sehr viele Kommastellen

[Deep-Sea]

Delphi-Quellcode:

function NichtAlleTassenImSchrank(AValue: Extended; ACount: Integer): String;
begin
  Result := FloatToStr(AValue);
  Result := Copy(Result, 1, Pos(DecimalSeparator, Result) + ACount);
end;

Rundet halt immer ab, aber gehen würde es

So, und jetzt schnell weg, bevor's Ärger gibt
(Mir war halt mal danach ...)