Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.26;
Скачать: CL | DM;

Вниз

DecimalSeparator   Найти похожие ветки 

 
dataMaster ©   (2003-04-14 16:36) [0]

Всем привет! Помогите ламеру! Мне в 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 этот код работает нормально. Помогите, пожалуйста!


 
BaRToV   (2003-04-14 17:10) [1]

Посмотри в sysutils как делаетя это и функцию GetLocaleInfo.


 
Кладов   (2003-04-15 15:31) [2]

Или возьмите замену SysUtils (добавлена Сидоровым недавно).



Страницы: 1 вся ветка

Текущий архив: 2003.12.26;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
14-86544
pasha_golub
2003-12-01 14:06
2003.12.26
Эффект увядания


3-86268
ki11er
2003-12-03 14:12
2003.12.26
Как записать запрос в таблицу?


1-86373
sad
2003-12-15 11:06
2003.12.26
Аналог опертора макроподстановки Foxpro (&) в Delphi


3-86259
peypivo
2003-12-03 17:30
2003.12.26
Отображение валют в StringGrid


1-86451
James1981Bond
2003-12-12 20:28
2003.12.26
Как проследить закрытие 2 программы из 1 программы.