GetLocaleInfo() Aufruf, ist es so richtig?

[Zacherl]

Zitat von KodeZwerg:

Oder ist es generell so falsch und es gibt aktuellere Methoden um das Zeichen (als String) zu bekommen?

Delphi hat diese Schnittstelle gekapstelt:
http://docwiki.embarcadero.com/CodeE...ttings_(Delphi)

Ansonsten noch zum WinAPI Ansatz:
"Theoretisch" kann StrAlloc fehlschlagen. In diesem Falle läuft dein StrDispose im finally Block ins Leere. Und die fixe Länge von 10 wird sicherlich auch funktionieren, aber korrekter wäre es die API einmal mit nil Buffer und 0 Länge aufzurufen und den Rückgabewert zu verwenden. Alternativ einen fixen Anfangsbuffer, Rückgabe prüfen, GetLastError auf ERROR_INSUFFICENT_BUFFER prüfen, Buffer verdoppeln, Aufruf wiederholen, etc.

[KodeZwerg]

Wäre es so korrekt? (mit Verzicht auf WinApi)

Delphi-Quellcode:

function ThousandSeparator : String;
var
  FS: TFormatSettings;
begin
  FS := TFormatSettings.Create;
  Result := FS.ThousandSeparator;
end;

Muss ich da noch Speicher bereinigen?

[Zacherl]

Zitat von KodeZwerg:

Muss ich da noch Speicher bereinigen?

Nee, ist ja ein record . Alternativ beinhaltet System.SysUtils auch die globale Variable FormatSettings , die du direkt verwenden kannst.

[günni0]

Zitat von KodeZwerg:

Wäre es so korrekt? (mit Verzicht auf WinApi)

Delphi-Quellcode:

function ThousandSeparator : String;
var
  FS: TFormatSettings;
begin
  FS := TFormatSettings.Create;
  Result := FS.ThousandSeparator;
end;

Muss ich da noch Speicher bereinigen?

So ungefähr mache ich es auch. Bisher hat sich, trotz internationalem Gebrauch meines Programms, keiner beschwert. Ich erstelle TFormatSettings aber nur einmalig bei Programmstart und nutze die so gewonnenen Daten dann weiter.

[KodeZwerg]

Nun aber hoffentlich Ok:

Delphi-Quellcode:

function ThousandSeparator : String;
begin
  Result := FormatSettings.ThousandSeparator;
end;

Vielen Dank für so schnelle Hilfe!

[günni0]

Jetzt noch alles in eine eigene Unit und alles ist sauber, schön und leicht erweiterbar (jedenfalls würde ich es so machen).

Delphi-Quellcode:

unit MyUnitX;

interface

type
 TUnitX = record
 private
 var
  MyFormatSettings: TFormatSettings;
 public
  class function ThousandSeparator : string; static;
 end;

implementation

var
 UnitX: TUnitX;

class function TUnitX.ThousandSeparator : String;
begin
  Result := FormatSettings.ThousandSeparator;
end;

initialization

UnitX.MyFormatSettings := TFormatSettings.Create(GetUserDefaultLCID);

So eine ähnliche Unit habe ich. Grund für MyFormatSettings ist, weil ich FormatSettings überschreibe und immer noch die originalen Werte haben möchte.

[KodeZwerg]

Ich portiere gerade Code der auf System.ThousandSeperator aufbaute, kommt nur in einer Unit vor, hab da nun meine funktion drinn, klappte auch beim ersten Post, ich wollte mich nur absichern das ich da kein Fehler mache, da ich die WinApi Antwort leider nicht ganz Verstanden habe erschien mir das was ich Verstanden habe einfacher umzusetzen.
[EDIT]Also das mit dem StrDispose() das es fehlschlagen könnte hab ich Verstanden aber den Rest noch nicht.[/EDIT]