Как изменить системный разделитель целой части числа от дробной?
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;
|