FloatToStr in nonVCL?

[marabu]

Delphi-Quellcode:

function FloatToStr(e: Extended; width, decimals: Byte): String;
var
  i: integer;
begin
  Str(e:width:decimals, Result);
  if DecimalSeparator = ',' then
    repeat
      i := Pos('.', Result);
      if i > 0 then
        Result[i] := DecimalSeparator;
    until i = 0;
end;

Grüße vom marabu