Wieso verwendet man hier auch LPSTR?
Zitat:
LPSTR = PAnsiChar;
Im
MSDN (
SetLocaleInfo) steht doch ausdrücklich LPCTSTR.
Oder man nimmt einfach PChar.
PS: Sowas ist übrigens einer der Gründe, warum es beim Umstieg auf
Unicode (Delphi 2009 und höher) so viele Probleme gab ... schlechter/fehlerhafter Code.
[add]
Delphi-Quellcode:
procedure SetDecimalSeparator(Ch: Char);
begin
Application.UpdateFormatSettings := True;
if SetLocaleInfo(GetThreadLocale, LOCALE_SDECIMAL, PChar(String(Char))) then
DecimalSeparator := Ch;
Application.UpdateFormatSettings := False;
end;