Вопрос про Edit

[ByteMan]

Как можно сделать, чтобы в Edit можно было вводить значения от -177 до 177 и чтобы буквы нельзя было вводить?

[Terran]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);


begin


// Key — символ, соответствующий нажатой клавише.


// Если символ недопустимый, то процедура заменяет его


// на символ с кодом 0. В результате этого символ в поле


// редактирования не появляется, и у пользователя создается


// впечатление, что программа не реагирует на нажатие некоторых


// клавиш.


case Key of


'0'..'9': ; // цифра


#8 : ; // клавиша <Back Space>


{#13 : Edit1.SetFocus ; // клавиша <Enter>}

// остальные символы — запрещены

else Key :=Chr(0); // символ не отображать

end;

end;

[ByteMan]

Это только цифры вводяться, а как сделать чтобы интервал можно было вводить от -177 до 177

[Yurk@]

Поставь условие на проверку для Key заданого диапазона! (Key>=-177 and Key<=177) - потом пиши символ!

[puporev]

if (StrToInt(Edit1.Text)<-177) or (StrToInt(Edit1.Text)>177) then
дальше пиши, что делать (выдать сообщение, начать ввод снова, прервать цикл и т.д.)

[ByteMan]

Не получаеться с таким условием (key>=-177 and key<=177)

[Alex.rus]

Ну если ты хочеш вводить интервал то придется проверятьть значение Edit уже после ввода в него всех чисел и если они не подходят тогда выдавать сообщение об ошибке. Другого выхода я не вижу при работе с Edit.

[ByteMan]

Спасибо puporev, ещё вопрос, а в какое событие это можно вписать, а то когда я пишу в OnkeyPress, я тогда вообще ничего не могу ввести
"Is not a valid integer value"?

[bill]

В OnkeyPress просто надо перевести в тип integer или byte.
integer(key) и сравнивать далее. Я так понял тебе нало реагировать на нажатие клавиш. Тебе нужны OnkeyPress и OnKeyDown.

[Карась]

ИМХО при нажатии на клавишу (OnkeyPress) мы впечатываем символ в Едит. При отпускании (OnKeyDown) начинаем проверять значение в Едите... Если превысили, то удаляем последний введённый символ..