Delphi-Help

Главная Статьи Windows Как изменить системный разделитель целой части числа от дробной?

Как изменить системный разделитель целой части числа от дробной?

Оцените материал
(2 голосов)


Как изменить системный разделитель целой части числа от дробной?

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;
Прочитано 6274 раз

Авторизация



Счетчики