Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c