Decimal-Separator als Punkt

[burn]

Hallo...

In meinem Programm habe ich den Decimal-Separator auf Punkt umgestellt.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SysUtils.DecimalSeparator := '.';
end;

Zur Laufzeit mache ich einen Test.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(FloatToStr(123.45));
end;

Das Ergebnis: 123.45 ( wie zu erwarten war)

Sperre ich jetzt aber den Computer und entsperre ihn wieder
und teste nochmal, dann kommt 123,45 raus.
Das heist der Decimal-Separator wurde zurückgestellt.

Warum passiert das? Kann mir das mal einer erklären?


mfg Burn

[mkinzler]

Nach dem Sperren, werden die Standardwerte aus den Systemeinstellungen neu geladen.

[v2afrank]

Ohne jetzt in der Hilfe nachgelesen zu habe. Ich meine über
Application.UpdateFormatSettings:=False;
kannst du Das verhindern

[burn]

@v2afrank

Thanks ... Jetzt weiß ich wieder etwas mehr ..
Hätte ja auch mal den Hilfe-Text fertig lesen können ...
Da stehts schwarz auf weiß.... :oops:

mfg Burn