Hallo,
ergibt aber das richtige Ergebnis:
Delphi-Quellcode:
var
FmtSet: TFormatSettings;
begin
{$WARN SYMBOL_PLATFORM OFF}
FmtSet := TFormatSettings.Create(LOCALE_SYSTEM_DEFAULT);
{$WARN SYMBOL_PLATFORM ON}
ShowMessage(DateToStr(Now,FmtSet);
Gruß Thomas