[Baldares]

Привет.

Зла нехватает, с этими бюррократами

Короче ставлю "," ручками в Языках и Стандартах Виндов. А с нумпада опять точка вводится, и не воспринимается как число.

Что за х?

[Кулик Алексей aka kpblc]

Разделитель целой и дробной части хранится в реестре, насколько мне помнится.

[ShaggyDoc]

В своей программе совсем не обязательно, чтобы автоматически учитывались региональные настройки. Это зависит от используемых компонентов и мозгов программиста. А с мозгами "в стране напряженка". Поэтому программисты часто уверены, что у всех DECIMAL_SEPARATOR должен быть установлен, как и у них.

В хороших программах это обязательно учитывается. В момент ввода данных и в моменты преобразования для вычислений и для вывода на экран. Хороший компонент также не даст ввести неправильный разделитель в момент ввода числа. Это у хорошего компонета "в мозги зашито".

Если нет хорошего компонента, должны включаться мозги программиста для вставки в обработчик событий дополнительного кода по преобразованию данных.

В реестр лазить не надо, необходимо обращаться к функциям API, так как место хранения сепаратора может изменяться.

[Pastor]

Думается мне, что дело тут не в мозгах, а всего лишь в отсутствии опыта.
А все, что подобает сделать опытному старшему товарищу - это привести короткий исчерпывающий пример кода, в котором грамотно "разруливается" подобная ситуация. Многим пригодилось бы (и мне в том числе).

[ShaggyDoc]

Например, так (на Pascal):

Код:

[Выделить все]

 
function strUStofloat(value: string): double;
var
  OldSeparator: char;
begin
  result := 0;
  OldSeparator := DecimalSeparator;
  DecimalSeparator := '.';
  try
    result := StrToFloat(value);
  except
    //
  end;
  DecimalSeparator := OldSeparator;
end;

Здесь StrToFloat - штатная функция, которая "любит" разделитель, указанный в DecimalSeparator.

DecimalSeparator - глобальная переменная Windows. Она временно переопределяется на точку, получаем правильное число штатной функцией. Возможно и противоположное применение, например

Код:

[Выделить все]

 
function strRUStofloat(value: string): double;
var
  OldSeparator: char;
begin
  result := 0;
  OldSeparator := DecimalSeparator;
  DecimalSeparator := ',';
  try
    result := StrToFloat(value);
  except
    //
  end;
  DecimalSeparator := OldSeparator;
end;

А какую применять - зависит от используемых компонентов. Их можно настроить на разные DecimalSeparator. Причем лучше, если это будет именно "американская" точка, так как за много лет люди привыкли, что в большинстве программ надо именно точку вводить.

Для вывода данных на печать используются подобные функции, только заменяющие разделитель на нужный.

Хорошо, если в программе есть возможность для пользователя настроить, что использовать - "точку", "запятую" или "из региональных настроек".

Тогда в могло бы быть наподобие

Код:

[Выделить все]

 
function MyStrToFloat(value: string): double;
var
  OldSeparator: char;
begin
  result := 0;
  OldSeparator := DecimalSeparator;
  DecimalSeparator := MyDecimalSeparator();
  try
    result := StrToFloat(value);
  except
    //
  end;
  DecimalSeparator := OldSeparator;
end;

MyDecimalSeparator - функция, возвращающая из настроек программы разделитель.

В каждую программу это пихать не надо, это может быть в одном модуле, а в программе, вместо StrToFloat использовать MyStrToFloat.

[Baldares]

Невъехал как #24 применить в "гребаном" VBA.
Вот помогло это:
Замена точки или запятой в строке на разделитель установленный в реестре.

Код:

[Выделить все]

Public Function ReplaceDelimiter(InputStr As String) As String
   Dim WSHShell As Object
   Set WSHShell = CreateObject("WScript.Shell")
   InputStr = Replace(InputStr, ".", WSHShell.RegRead("HKEY_CURRENT_USER\Control Panel\International\sDecimal"))
   InputStr = Replace(InputStr, ",", WSHShell.RegRead("HKEY_CURRENT_USER\Control Panel\International\sDecimal"))
   ReplaceDelimiter = InputStr
End Function

Вредоносность оценить не могу.

[Baldares]

Упс! А чето не найду сам References Windows Script Host Object Model. Ведь должон быть!?

[ShaggyDoc]

У путёвого админа непременно стоит запрет на запуск Windows Script Host - распахнутых настежь ворот для атак на компьютер. Зачем из-за такой ерунды всё это запускать?

Одно из достоинств (самое большое) этого "гребаного" (по твоему выражению) в том, что из него можно вызывать функции обычных dll, в том числе WinAPI. Ну уж и реестр-то наверняка напрямую читать умеет, без всяких шеллов.

[Baldares]

ShaggyDoc, махнемся головами не глядя!

[Кулик Алексей aka kpblc]

Что умеет без Shell - это да. Но "напрямую" - это вряд ли