Eingestelltes Dezimaltrennzeichen ermitteln

[t.roller]

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  MyDecimal: PChar;
begin
  MyDecimal:=StrAlloc(10);
  GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,
    LOCALE_SDECIMAL,MyDecimal,10);
  Caption:='System decimal is: '+ MyDecimal;
end;