Текущий архив: 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.023 c
