FloatToStr in nonVCL?

[ErazerZ]

hey,
ich komme hier einfach nicht weiter, wie ich eine fließkommer zahl in einen string umwandle, mit Str() bekomm ich nur einen blödsinn heraus, und mit wvsprintf() finde ich auch keinen weg ..

[ErazerZ]

ich glaub ich habs, auf 2 stellen gerundet ..

Delphi-Quellcode:

function FloatToStr(E: Extended): String;
var
  S: String;
begin
  Str(E:2:2, S);
  FloatToStr := S;
end;

[sniper_w]

Ich habe jetzt nicht delphi hier aber mit str muss es gehen, einfach man OH nachschlagen.

EDIT:

Delphi-Quellcode:

function FloatToStr(E: Extended): String;
begin
  Str(E:2:2, Result);
end;

[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

[ErazerZ]

danke sniper_w und marabu