inifile ReadFloat deutsch/english formatsettings

[Uwe Raabe]

Zitat von Rolf Frei:

Eigentlich reicht es doch einfach den DecimalSeparator zu setzen

Wenn sich das ganze nicht in einem Thread abspielt, geht das wohl.

[himitsu]

Es ist egal, ob DAS in einem Thread oder im Hauptthread abläuft ... wenn irgendwer Anderes in einem "anderen" Thread gleichzeitig das auch nutzen oder gar ebenfalls ändern will, dann ...

[dummzeuch]

Da mich das auch immer genervt hat, habe ich vor Ewigkeiten die TIniFile_TryReadFloat und TIniFile_ReadFloat Hilfsfunktionen geschrieben, die dieses Problem lösen. Zusammen mit TIniFile_WriteFloat, welche immer mit Dezimalpunkt schreibt, sind diese Funktionen Teil der Unit u_dzClassUtils meiner dzlib.

[Redeemer]

Ich habe meine Anwendung so umgestellt, dass der Speicher als Int64 interpretiert wird, wenn ich ein TDateTime speichern oder lesen möchte.

Delphi-Quellcode:

type TJanniINIFile = class helper for TIniFile
  public
    constructor CreateForceFile(const FileName: string); // Erstellt gegebenenfalls den Ordner
    procedure WriteDouble(const Section, Ident: string; const Value: Double); // Mein Versuch, TDateTime regionsunabhängig zu schreiben
    function ReadDouble(const Section, Ident: string; const Default: Double): Double;
end;

{ TJanniINIFile }

constructor TJanniINIFile.CreateForceFile(const FileName: string);
begin
  ForceDirectories(ExtractFilePath(Filename));
  Create(FileName);
end;

function TJanniINIFile.ReadDouble(const Section, Ident: string;
  const Default: Double): Double;
var
  Pointer: PDouble;
  Pointer2: PInt64;
  Int: Int64;
begin
  Pointer2 := @Default;
  Int := StrToInt64Def(ReadString(Section, Ident, ''), Pointer2^);
  Pointer := @Int;
  Result := Pointer^;
end;

procedure TJanniINIFile.WriteDouble(const Section, Ident: string;
  const Value: Double);
var
  Pointer: PInt64;
begin
  Pointer := @Value;
  WriteString(Section, Ident, IntToStr(Pointer^));
end;