как программно поменять настройки региональных параметров?

@Serpico · Регистрация: 16.02.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте!
подскажите как программно изменить в настройках windows (настройки региональных параметров) точку на запяту, и при закрытии программы вернуть как было. Ввожу я это в поле DBGridEh. Просто менять точку на запятую не вариант (хотя такое уже стоит) просто скажем так на компьютере еще есть программа которая меняет эти настройки и при Ctrl+V тоже ерунда происходит либо вооще не вводит данные если есть точка либо просто удаляет разделитель.

Добавлено через 1 час 40 минут
Выражусь конкретнее и точнее.
вот здесь на некоторых Windows стоит точка вместо запятой как поменять эту настройку на запятую, программно http://rghost.ru/17555451/image.png

Добавлено через 39 минут
Так понял проблемма не в этом сам DBGridEh тупит он не дает ввести ничего.

@Arcor · 11.08.2011, 12:26

А для чего это нужно? Чтобы в своей программе не путаться что тыкать? Чтобы была точка или запятая как разделитель? Не проще ли в программе поставить проверку, если введено то, то вставлять это, если другое то некое вставить

DenNik · 11.08.2011, 12:43

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

Delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = '.' then Key:= DecimalSeparator;
end;

ну, или наоборот

@Puporev · 11.08.2011, 12:48

Delphi

1	if Key in[ '.',','] then Key:= DecimalSeparator;

@i8085 · 12.08.2011, 03:44

Чтобы программа могла работать со своими файлами данных на любом компьютере, независимо от настроек системы, можно сделать так:

Delphi

var
  SavedDateSeparator, SavedTimeSeparator: Char;
  SavedShortDateFormat: string;
...
 
procedure TForm.FormCreate(Sender: TObject);
...
// На время работы программы
// временно меняем глобальные настройки формата даты:
SavedDateSeparator := DateSeparator;
SavedTimeSeparator := TimeSeparator;
SavedShortDateFormat := ShortDateFormat;  // Запомнить настройки системы
// Установить свои настройки:
DateSeparator := '.';
TimeSeparator := ':';
ShortDateFormat := 'dd.MM.yyyy';
 
...
 
procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction);
...
DateSeparator := SavedDateSeparator;
TimeSeparator := SavedTimeSeparator;
ShortDateFormat := SavedShortDateFormat;  // Восстановить настройки системы

Это, конечно, не очень хорошо (для других программ, работающих одновременно с вашей), но другой вариант - менять каждый раз по всем своим файлам коды разделителей на системные, чтобы можно было использовать стандартные библиотеки функций (например, работающие с TDateTime) - в общем-то не лучше. Например, не всегда очевидно, на какой разделитель надо поменять.

@Serpico 3 / 3 / 1 Регистрация: 16.02.2011 Сообщений: 157
		1
	как программно поменять настройки региональных параметров? 11.08.2011, 09:40. Показов 5761. Ответов 4 Метки нет (Все метки) Здравствуйте! подскажите как программно изменить в настройках windows (настройки региональных параметров) точку на запяту, и при закрытии программы вернуть как было. Ввожу я это в поле DBGridEh. Просто менять точку на запятую не вариант (хотя такое уже стоит) просто скажем так на компьютере еще есть программа которая меняет эти настройки и при Ctrl+V тоже ерунда происходит либо вооще не вводит данные если есть точка либо просто удаляет разделитель. Добавлено через 1 час 40 минут Выражусь конкретнее и точнее. вот здесь на некоторых Windows стоит точка вместо запятой как поменять эту настройку на запятую, программно http://rghost.ru/17555451/image.png Добавлено через 39 минут Так понял проблемма не в этом сам DBGridEh тупит он не дает ввести ничего. 0

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	11.08.2011, 12:26	2
	А для чего это нужно? Чтобы в своей программе не путаться что тыкать? Чтобы была точка или запятая как разделитель? Не проще ли в программе поставить проверку, если введено то, то вставлять это, если другое то некое вставить 0

	12.08.2011, 03:44

Опции темы