Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 5 505

/ вопрос открыт /

Приветствую, уважаемые эксперты! Как правильно програмно изменить региональные настройки Win7 и XP, при открытии главной формы. Необходимо заменить разделитель с запятой на точку? Цель одна, чтобы при работе с программой разделитель был точкой, а при выходе из программы разделитель - запятая. Заранее спасибо.

Яковлев Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Яковлев (статус: Посетитель)
Вопрос отправлен: 15 июля 2011, 07:16
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Есть в модуле SysUtils глобальная переменная DecimalSeparator: Char. Она и представляет собой разделитель целой и дробной части чисел в функциях преобразований "Строка <---> Число". В начале программы (например, перед Application.Initialize()) присваивай ему точку.

Кстати, это не единственная переменная такого рода.

var CurrencyString: string;
var CurrencyFormat: Byte;
var NegCurrFormat: Byte;
var ThousandSeparator: Char;
var DecimalSeparator: Char;
var CurrencyDecimals: Byte;
var DateSeparator: Char;
var ShortDateFormat: string;
var LongDateFormat: string;
var TimeSeparator: Char;
var TimeAMString: string;
var TimePMString: string;
var ShortTimeFormat: string;
var LongTimeFormat: string;
var ShortMonthNames: array[1..12] of string;
var LongMonthNames: array[1..12] of string;
var ShortDayNames: array[1..7] of string;
var LongDayNames: array[1..7] of string;
var SysLocale: TSysLocale;
var EraNames: array[1..7] of string;
var EraYearOffsets: array[1..7] of Integer;
var TwoDigitYearCenturyWindow: Word = 50;
var ListSeparator: Char;

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 15 июля 2011, 08:20


Мини-форум вопроса

Всего сообщений: 52; последнее сообщение — 21 июля 2011, 07:59; участников в обсуждении: 6.

Страницы: [« Предыдущая] [1] [2] [3]

bugmenot

bugmenot (статус: 3-ий класс), 18 июля 2011, 14:43 [#41]:

Цитата (min@y™):

Словарь открой, позорище!

facepalm.txt

по всей вероятности, ослом является не только Алексеев...
виконання програми розпочинається з того самого мiсця, де призупинилося.

min@y™

min@y™ (статус: Доктор наук), 18 июля 2011, 14:53 [#42]:

Цитата (bugmenot):

по всей вероятности, ослом является не только Алексеев...

Ну и я так подумал. Откуда ж в слове "опасность" вторая буква "т" взялась?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
min@y™

min@y™ (статус: Доктор наук), 18 июля 2011, 14:55 [#43]:

пойду исправлю слово "огнеопасно" на будке газового редуктора во дворе. Ослы какие-то написали, понимаешь...
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Яковлев

Яковлев (статус: Посетитель), 18 июля 2011, 14:57 [#44]:

Зачем тебе это. Ты же ничего непонял. Закрываю тему. Всем спасибо.
Gooddy

Gooddy (статус: 3-ий класс), 18 июля 2011, 15:02 [#45]:

Цитата:

безопасТность

Чисти код! Чисти код! Чисти код!
min@y™

min@y™ (статус: Доктор наук), 18 июля 2011, 15:02 [#46]:

Цитата (Яковлев):

Зачем тебе это.

В конце вопроса ставь символ "?"

Цитата (Яковлев):

Ты же ничего непонял.

"не" с глаголами пишется раздельно.
Мой ответ тебе подошёл или нет?
И мне очень-очень сильно хочется узнать

Цитата (min@y™):

почему хранить символ в TEdit безопаснее и значимее, чем в простой переменной типа Char?

Ответь, пожалуйста.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
min@y™

min@y™ (статус: Доктор наук), 18 июля 2011, 15:10 [#47]:

Цитата (Gooddy):

безопасТность


А то!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
bugmenot

bugmenot (статус: 3-ий класс), 18 июля 2011, 15:31 [#48]:

По-моему, mindy таки словила бодрящую порцию баттхёрта :­-­D

Цитата (Яковлев):

анализируешь код

Код - лажа, хотя бы из-за отсутствия парного вызова SendMessageTimeout(WM_SETTINGCHANGE, ...) {не SendMessage и не WM_WININICHANGE}. В любом случае, даже если довести до ума; всё равно получится велосипед, а правильный™ вызов - постом выше.
виконання програми розпочинається з того самого мiсця, де призупинилося.

min@y™

min@y™ (статус: Доктор наук), 18 июля 2011, 15:36 [#49]:

Цитата (bugmenot):

По-моему, mindy таки словила бодрящую порцию баттхёрта

А хто такая mindy? Почему не знаю?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Яковлев

Яковлев (статус: Посетитель), 19 июля 2011, 03:06 [#50]:

Точнее твой статус не "Кандидат наук" а ПОЛНОЦЕННЫЙ ПОДОНОК -придурок от небольшого ума, и смотри за своими ошибками, хотябы орфографическими. Придурок.
min@y™

min@y™ (статус: Доктор наук), 19 июля 2011, 08:49 [#51]:

Цитата (Яковлев):

Точнее твой статус не "Кандидат наук" а ПОЛНОЦЕННЫЙ ПОДОНОК -придурок от небольшого ума, и смотри за своими ошибками, хотябы орфографическими. Придурок.

Спасибо! Очень приятно было это читать. Да, я подонок и придурок! Полноценный!

Однако, только я взялся ответить на твой вопрос, kakan!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Яковлев

Яковлев (статус: Посетитель), 21 июля 2011, 07:59 [#52]:

Ваше "наказание" - факт Вашего однобокого умозаключения. А почему за мат не наказан "кандидат наук"?

Страницы: [« Предыдущая] [1] [2] [3]

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 25 апреля 2026, 17:47
Выполнено за 0.04 сек.