Delphi-Help

procedure SetDecimalSeparator( Ch: Char );

var

  DefLCID: LCID;

  Buffer: LPSTR;

begin

   Application.UpdateFormatSettings := true;

   StrPCopy( Buffer, Ch );

   DefLCID := GetThreadLocale;

   if SetLocaleInfo( DefLCID, LOCALE_SDECIMAL, Buffer ) then

      DecimalSeparator := StrPas( Buffer )[1];

   Application.UpdateFormatSettings := false;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

   SetDecimalSeparator( '.' );

end;