Версия для печати

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

Оцените материал
(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;
Прочитано 6779 раз