Länderunabhängige Konvertierung von Kommazahlen<->String

[Dani]

Hallo,

wie kann man möglichst einfach eine Gleitkommazahl zu einem menschenlesbaren String konvertieren, und das unabhängig von den Ländereinstellungen des Benutzers (sprich DecimalSeparator)? Es soll auch keine Genauigkeit verloren gehen.

Was ich natürlich nicht machen will, ist, DecimalSeparator einfach zu überschreiben. Vorher würde ich FloatToStr / StrToFloat reimplementieren, allerdings ist der Assemblercode der RTL eher abschreckend...

Gruß

[mkinzler]

Es gibt doch auch die varinate mit dem Format als Parameter

[Dani]

...welche bei der Wahl des Dezimaltrennzeichens leider auch die Ländereinstellungen beachtet

[mkinzler]

Nein: function StrToFloat(const S: string; const FormatSettings: TFormatSettings): Extended;

[Dani]

Kennt mein Delphi6 leider nicht, schade.

[mkinzler]

Was spricht eigentlich gegen die Veränderung der Konstante(n)?

[marabu]

Hallo Dani,

Zitat von Dani:

wie kann man möglichst einfach eine Gleitkommazahl zu einem menschenlesbaren String konvertieren, und das unabhängig von den Ländereinstellungen des Benutzers (sprich DecimalSeparator)? Es soll auch keine Genauigkeit verloren gehen.

die einfachste Möglichkeit ist wohl die Prozedur Str():

Delphi-Quellcode:

var
  s: string;
  e: Extended;
  code: Word;

begin
  Str(Pi:0:18, s);
  Val(s, e, code); 
end;

Damit wird eine Zahl im internen Format geschrieben - so dass sie mittels Read() auch einfach wieder gelesen werden kann.

Was den umgekehrten Weg (StrToFloat) angeht, so musst du mal in der Online Help nachsehen, in welcher Unit diese Funktion bei dir implementiert ist. Bei mir ist es SysUtils.

Grüße vom marabu

[Dani]

Vielleicht werden an anderer Stelle im Programm die Konstanten benötigt? Den alten Wert speichern und nach der Konvertierung zurückschreiben wäre zwar möglich, finde ich aber irgendwie... dirty

Naja, wenn es keine saubere Lösung gibt, wird das wohl herhalten müssen. Danke dir

@Marabu Danke für den Tipp! aber leider beachtet auch Str() die Ländereinstellungen

[mkinzler]

Dann implemnetier dir doch eine eigene Variante:

Delphi-Quellcode:

function MyFloatToStr( f: Extended): String;
var
    ds, ts: Char;
begin
    ds := DecimalSeparator;
    DecimalSeparator := ',';
    ts := ThousandSeparator;
    ThousandSeparator := '';
    result := FloatToStr( f);
    DecimalSeparator := ds;
    ThousandSeparator := ts;
end;

[marabu]

Hallo Dani,

Zitat von Dani:

Danke für den Tipp, aber leider beachtet auch Str() die Ländereinstellungen

wie kommst du darauf? Ländereinstellungen werden weder von Str() noch von Val() berücksichtigt.

Diese beiden Prozeduren stammen noch aus der Urzeit von Pascal und arbeiten ausschließlich mit der internen (anglophilen) Darstellung.

Gute Nacht