FloatToString mit Punkt statt Komma

HenryHux · Verfasst: So 19.12.10 14:07

Hi,

bei der Typumwandlung von Gleitkommazahlen zu Strings, werden nachkommazahlen ja übelicherweise duch ein , getrennt.
Krieg ich das auch einfach mit nem Punkt hin oder muss ich den String mühsam zerpflücken?

Lg

bummi · Verfasst: So 19.12.10 14:14

StringReplace('1234.234','.',DecimalSeparator,[])

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var
  InvariantSettings: TFormatSettings;
begin
  InvariantSettings.DecimalSeparator := '.';
  ...
  FloatToStr(0.5, InvariantSettings);

Oder, wenn du's global ändern willst: DecimalSeparator := '.';

Oder als erste Unit SetThreadLocale auf English (U.S.) setzen (SetThreadLocale($0409);).

HenryHux · Verfasst: So 19.12.10 14:25

Danke!
Genau das, was ich suchte.

Lg

dummzeuch · Verfasst: So 19.12.10 20:07

delfiphan hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var
  InvariantSettings: TFormatSettings;
begin
  InvariantSettings.DecimalSeparator := '.';
  ...
  FloatToStr(0.5, InvariantSettings);

Ahem: Ist das so sinnvoll? Eine nicht initialisierte (Record-)Variable, bei der nur ein einziges Feld gesetzt wird als Parameter uebergeben? Ich haette da zumindest versucht, die Variable mit den Systemeinstellungen vorzubelegen und erst dann das Feld DecimalSeparator zu aendern.

twm

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

Nein, natürlich nicht. Ich wollte nur andeuten, wie das zu tun ist. In der Praxis hätte man die Variable vielleicht in globalem Scope oder in einer Klasse und würde die anderen Felder auch definieren.

TheChicken · Hält's aus hier Beiträge: 1

Hallo,

ich habe gerade zum wiederholten Male das selbe Problem gehabt und immer irgendwie gelöst. Jedoch meine ich heute endlich mal eine "gute" Lösung gefunden zu haben. Dabei nutze ich ebenfalls die TFormatSettings-Variable, die ich aber vorher mit LOCALE_INVARIANT initialisiere.

Auszug aus der Microsoft Hilfe:

Zitat:

For example, the invariant locale is used when an application compares character strings using the CompareString function and expects a consistent result regardless of the user locale. The settings of the invariant locale are similar to those for English (United States) but should not be used to display formatted data.

Und genau das will man ja haben, wenn man z.B. einen SQL-String mit Float-Werten zusammenbauen will.

Also

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

function FloatToSQLString(Value: Extended): string;
var
  FS: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_INVARIANT, FS);
  Result := FloatToStr(Value, FS);
end;

Wenn auch ein wenig spät... ich hoffe, ich konnte helfen.

TheChicken

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme