VPF::контроль ввода в edit - Форум программистов

JS2

Дата 16.4.2009, 11:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 25.3.2009

Репутация: нет
Всего: нет

Необходимо контролировать ввод значений в edit. Областью допустимых значений поля является диапазон вида '1-6,9,30-42' или '1-6' или '1,6,9' и т.д.

=> неправильные комбинации: 1--; --1; 1,, ,,11 и т.д. ; буквы и прочие символы.

У edit'a есть событие:

Код


function OnCanAcceptChar(Edit: TCustomEdit_;
  CharCode: Char; CharIndex: Integer; NewText: String): Boolean;

//CharCode - текущий вводимый символ 
//CharIndex - позиция вводимого символа
//Newtext - текущий текст edit'a + вводимый символ

//Result - определяет блокировать ли вводимый символ

Помогите составить корректный алгоритм проверки?

RomanEEP

Дата 17.4.2009, 14:40 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 424
Регистрация: 18.5.2006
Где: Коломна

Репутация: 5
Всего: 8

Код


function OnCanAcceptChar(Edit: TCustomEdit_;
  CharCode: Char; CharIndex: Integer; NewText: String): Boolean;
var
  Value: Integer;
begin
  Result := False;
  if TryStrToInt(NewText, Value) then
    if Value in [1..6, 9, 30-42] then
      Result := True
end;

--------------------

Электронные экзамены

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »