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.