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

Delphi , Синтаксис , Типы и Переменные

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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.Button1Click(Sender: TObject);
 begin
   SetDecimalSeparator('.');
 end;

Перевод текста на русский язык:

Код Delphi предназначен для изменения системного разделителя десятичной точки от его умолчательного значения (обычно запятая ,) на другой символ (в этом случае, точка .).

Вот как работает код:

1. Процедура SetDecimalSeparator принимает одиночный параметр Ch, который будет использоваться в качестве нового разделителя десятичной точки.
2. Внутри процедуры Application.UpdateFormatSettings устанавливается в значение True. Это позволяет приложению обновить свои настройки форматирования.
3. Создается буферный строковый объект Buffer и заполняется значением Ch.
4. Текущий локаль (локаль потока) получается с помощью функции GetThreadLocale.
5. Функция SetLocaleInfo вызывается с текущей локалью, LOCALE_SDecimal (который указывает на разделитель десятичной точки), и Buffer. Это устанавливает новый разделитель десятичной точки для системы.
6. Если операция была успешна, новый разделитель десятичной точки получается из буфера с помощью StrPas( Buffer )[1].
7. Наконец, Application.UpdateFormatSettings устанавливается в значение False, что возвращает настройки форматирования приложения к их исходному состоянию.

Процедура Button1Click вызывает SetDecimalSeparator с аргументом точка (.), эффективно изменяя разделитель десятичной точки в системе.

Однако, код может не работать как ожидалось, потому что он устанавливает локаль для всего потока. Это может потенциально вызвать проблемы, если другие части вашего приложения зависят от умолчательной локали. Лучше использовать свойство FormatSettings вместо:

procedure TForm1.Button1Click(Sender: TObject);
begin
  FormatSettings.DecimalSeparator := '.';
end;

Код изменит разделитель десятичной точки для текущего потока, не влияя на другие части вашего приложения.

Статья описывает изменение системного разделителя целой части числа от дробной в Delphi с помощью процедуры SetDecimalSeparator, которая позволяет изменить символ разделения для чисел.

Комментарии и вопросы

:: Главная :: Типы и Переменные ::