Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как вытащить региональные настройки??? [D5, Win95/98, NT4, Win2k]


filipov ©   (2001-11-20 17:06:00) 

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


troits   (2001-11-21 11:06:00) [1]

1) На мой взгляд, предыдущий код не совсем верен. При ошибке StrToFloat
генерирует исключение EConvertError, которое и надо ловить.

try
StrToFloat("1.123");
ShowMessage("This is correct!");
except
on EConvertError do
ShowMessage("This is incorrect!")
end;

2) Явно присваивать DecimalSeparator - тоже плохая практика.
Если уж это так необходимо, лучше воспользоваться API - ф-цией SetLocaleInfo.


Могильников Сергей   (2001-11-21 09:35:00) [2]

В SysUtils есть переменная DecimalSeparator:Char; обозначает разделитель целой и дробной части числа. В своей программе можешь даже принудительно назначить разделитель присвоив этой переменной какой-нибудь символ.
Например:
Project.dpr;
..
Uses
SysUtils, Dialogs;
..
DecimalSeparator := ".";
if StrToFloat("1.123") = 1.123 then
ShowMessage("This is correct!")
else
ShowMessage("This is incorrect!")


filipov   (2001-11-21 09:13:00) [3]

svv спасибо. Работает.


filipov   (2001-11-21 08:43:00) [4]

GovoRun, а где скачать эту AHM Library?

Иван Шихалев.
Если не сложно, нарисуй пример использования функции, а то не могу параметры в нее передать(руки корявые)


Иван Шихалев   (2001-11-20 23:38:00) [5]

GetNumberFormat- API-шная функция.


GovoRun   (2001-11-20 22:59:00) [6]

если не гнушаешься использовать чужие компоненты - скачай AHM Library
там есть


svv   (2001-11-20 17:39:00) [7]

DecimalSeparato(e)r


Наверх

Титульная страница Поиск, карта сайта Написать письмо