Dezimalkomma anstatt Dezimalpunkt

[axelf98]

Delphi-Quellcode:

function FloatToStrDez(Wert:Real; Dezimalzeichen:String): String;
var S: String;
begin
 S := FloatToStr(Wert);
 S := Stringreplace(S,DecimalSeparator,Dezimalzeichen,[rfReplaceAll]);
 result := S;
end;