Проверка ввода

[Darth_Programmeder]

Уважаемые программисты!!! помогите пожалуйста вот с такой ерундой. Второй день уже голову ломаю. Я делаю проверку с помощью TRY. Разрешено вводить только цифры из диапазона от 2..30. на все остольное должен выдавать окошко с описанием ошибки. вот что я написал:
begin

//Блок проверки ввода
if (a<2)or(a>30) then begin
showmessage('Ошибка ввода, посмотрите ещё раз, всё ли правильно!');
try
result:=a;
except
a:=strtoint(edit1.text);
end;
exit;
end;
Здесь он просто на все что введешь ошибку выдает. Заранее спасибо

[Grag]

Если ввод целочисленный, то лучше записать так

if not (a in [2..30]) then //ошибка ввода

Если ты проверяешь ошибку ввода с помощью конструкции if then, то зачем тебе тогда try except end???

[Darth_Programmeder]

Мне нужно это реализовать именно с помощью try.
кстати не помогло. распишете более подробно. если это возможно

[SERG1980]

Ну если по простому то можно так попробовать

function InputA(a:integer):integer;
 begin
  if not (a in [2..30]) then
  begin
   result:=2;
   raise ERangeError.Create('Число выходит за пределы диапазона');
  end else result:=a;
 end;

пример использования

procedure TForm1.Button1Click(Sender: TObject);
begin
 try
  edit1.Text:=inttostr(InputA(40));
 except
  edit1.Text:='';
 end;
end;

[Darth_Programmeder]

SERG1980 И это тоже не работает. Программа зацикливается. Т.е виснет и рисует на форме точки до бесконечности.

вот что я написал.
begin
a:=strtoint(edit1.text);
//Блок проверки ввода
if (a<2)or(a>30) then begin
try
result:=a;
showmessage('Ошибка ввода, посмотрите ещё раз, всё ли правильно!');
except
end;
exit;
end;
Здесь он выдает как положено ошибки если введешь меньше 2 или больше 30. Но не выводит если введешь что нибудь кроме цифр(Появляется ошибка проекта " " is not valid integer value )

[SERG1980]

Дык у вас блок
except
....
end
пустой. вы в него что нибудь впишите. к примеру если в эдите будет не число то выводите сообщение

[Grag]

begin
a:=strtoint(edit1.text);
//Блок проверки ввода
try
  result:=a;
except
  showmessage('Ошибка ввода, посмотрите ещё раз, всё ли правильно!');
  exit
end;

result определи как result:[2..30]