Изменить системный (Win7) разделитель целой и дробной части чисел из приложения под Delphi

[СтарыйХрыч]

Кто в курсе, как из Delphi-приложения узнать, какой системный разделитель целой и дробной части чисел установлен в Windows 7 и заменить в Винде запятую на точку на время работы приложения?
Или хотя бы где это следует искать?

[Stilet]

FormatSettings.DecimalSeparator по идее должно подхватывать разделитель из системы.

[СтарыйХрыч]

FormatSettings.DecimalSeparator действительно считывает в Char системный разделитель. Но я рано радовался. Если я присваиваю в FormatSettings.DecimalSeparator:='. ', то точка присваивается, но система не начинает использовать точку, как системный разделитель. В процессе работы приложения
останавливаю его на контрольной точке, значение FormatSettings.DecimalSeparator - точка, а в системе в Панели управления=>Региональных стандартах=>Настройках разделитель остается запятой.
Видимо, нужно ещё какое-то ругательство, чтобы изменение было воспринято.
На это ответ есть?

[Stilet]

Т.е. ты хочешь закатать новый разделитель для всех приложений на момент запуска твоего?

[Streletz]

Сообщение от СтарыйХрыч

Видимо, нужно ещё какое-то ругательство, чтобы изменение было воспринято.

Вам нужно изменить разделитель для всех программ или только для Вашей?
Если для всех (чтобы в

Сообщение от СтарыйХрыч

Панели управления=>Региональных стандартах=>Настройках

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

[СтарыйХрыч]

В том-то и дело, что придется для всей системы. Но только на время работы моей программы.
Сейчас приходится перед запуском программы на чужом компе вручную менять разделитель в настройках системы, после окончания всего сеанса работы - вручную восстанавливать. А обрабатываю получаемых текстовых данных с разделителем-точкой за один сеанс сотни мегабайт. Их каждый раз конвертировать посинеешь.

Успокаивает одно. Комп можно использовать в монопольном режиме.

Так куда надо залезать в реестре и какую литературу искать ?

[Streletz]

Сообщение от СтарыйХрыч

Так куда надо залезать в реестре

Ссылка есть моём предыдущем посте.

Сообщение от СтарыйХрыч

какую литературу искать ?

По реестру (и всему, что с ним связано, включая права доступа) и по Delphi. В том числе по обработке "нештатных ситуаций" наподобие исключений и т.д.. Дело в том, что если Ваша программа отработает не корректно до того момента, когда восстанавливается прежнее значение разделителя, то в системе так и останется точка вместо запятой. Что не есть хорошо.
Поэтому, Вам необходимо предусмотреть вариант восстановления первоначального значения разделителя в случае не корректной работы программы.
В общем путь тоже не из лёгких.

Сообщение от СтарыйХрыч

Их каждый раз конвертировать посинеешь.

А, если попробовать выполнять конверсию "на лету"?

[Stilet]

Мдя... Ну и задачка...
Это я так понимаю - тупость проггеров, которые писали прогу, требующую обязательно один разделитель в системе в то время как в той же системе работает другая такая же но требующая другой разделитель?

Да, а что будет если ты разделитель поменяешь, а та прога его не подтянет? м.б. она только при старте его определяет?

[evg_m]

Сейчас приходится перед запуском программы на чужом компе вручную менять разделитель в настройках системы

чтобы МОЯ программа могла переводить числа в соответствии с МОИМИ настройками.

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

Delphi7 F1

function StrToFloat(const S: string): Extended; overload;
function StrToFloat(const S: string; const FormatSettings: TFormatSettings): Extended; overload;

Используйте второй вариант.

var f: TFormatSettings;
  GetLocaleFormatSettings(0; f);
  f.DecimalSeparator:='.';
  x:=StrtoFloat('4.9', f);

и никакого реестра не потребуется.

[min@y™]

Надо изменить системно, да?
Всё настолько просто, что даже не интересно.