VPF::запрет на ввод диапазона чисел

dize

Дата 12.11.2009, 16:59 (ссылка)

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

Загрузка ...

Шустрый

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

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

Необходимо добавить ограничение на ввод чисел больше 100

Код


procedure Tnew_order.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', DecimalSeparator,#8,#13])
or ((Key = DecimalSeparator)
and (POS (DecimalSeparator, Edit2.Text) = 0))
or ((Key = '-') and (POS ('-', Edit2.Text) = 0))
then
  begin
      Key := #0;
  end;
end;

Пробовал так

Код


procedure Tnew_order.Edit2KeyPress(Sender: TObject; var Key: Char);
var
x:integer
begin
if not (Key in ['0'..'9', DecimalSeparator,#8,#13])
or ((Key = DecimalSeparator)
and (POS (DecimalSeparator, Edit2.Text) = 0))
or ((Key = '-') and (POS ('-', Edit2.Text) = 0))
then
  begin
      Key := #0;
  end;
x:=strtoint(edit2.Text);
if (x < 0) or (x > 100) then
begin
key := #0;
end;
end;

Но ругается на любой ввод '''is not a valid integer value.

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

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

~FoX~

Дата 12.11.2009, 17:37 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

dize, Потому что OnKeyPress возникает раньше чем OnChange...Не проще SpinEdit использовать?

Это сообщение отредактировал(а) ~FoX~ - 12.11.2009, 17:40

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

…множественность никогда не следует полагать без необходимости…

dize

Дата 12.11.2009, 18:04 (ссылка)

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

Загрузка ...

Шустрый

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

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

~FoX~, проще конечно, но интересует этот вариант, без привязки к button.

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

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

~FoX~

Дата 12.11.2009, 21:29 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

dize, Просто проверку вынеси в онЧейндж...

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

…множественность никогда не следует полагать без необходимости…

amsoft

Дата 13.11.2009, 09:48 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

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

используй TMaskEdit,
пропиши его свойство

Цитата

TMaskEdit.MaskEdit := '99;0; '

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

"Кто бы ты ни был - не думай о себе слишком"Дельфин

dize

Дата 13.11.2009, 15:32 (ссылка)

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

Загрузка ...

Шустрый

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

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

~FoX~, точно, исправил уже..совсем голова не работает к концу рабочего дня..спасибо за подсказку smile

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

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

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