| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
DecimalSeparator
dataMaster © (2003-04-14 16:36:00)
Всем привет! Помогите ламеру! Мне в EditBox"е надо отловить цифры и DecimalSeparator. Делаю так:
procedure TmainForm.EditBox1Char(Sender: PControl; var Key: Char;
Shift: Cardinal);
begin
if not(Key in ["0".."9",DecimalSeparator]) then Key := #0;
end;
Почему-то ругается на DecimalSeparator. В VCL этот код работает нормально. Помогите, пожалуйста!
Кладов (2003-04-15 15:31:00) [1]
Или возьмите замену SysUtils (добавлена Сидоровым недавно).
BaRToV (2003-04-14 17:10:00) [2]
Посмотри в sysutils как делаетя это и функцию GetLocaleInfo.
| |
