проверка вводимых значений

[Saken_]

Написал программу, в которой обрабатываются числа (тип Integer), необходимо проверить вводимые значения на соответствие типу Integer, если вводимые значения- не принадлежат типу Integer,тто вывести сообщение о некорректных вводимых данных..как это сделать?

[iama]

function is_digit(s: string): boolean; 
var i: word;
begin 
Result := true;
for i := 1 to Length(s) do
  if not (s[i] in ['0'..'9']) then 
    isDigit := false; 
end;

...

if is_digit(edit1.text) then ...

[ex.cluz]

Может, в try...except...end загнать?
т.е.:

var
  a: integer;
begin
  try
    a:=StrToInt(Edit1.Text);
  except
    ShowMessage('Не фига не Интегер!');
  end;
end;

Предупреждаю сразу, что при запуске проги из среды программирования будет вылетать "ошибка", если введено не Integer. Так и надо. Запустите сам скомпилированный экзешник и никаких ошибок не будет.

[Roof]

Вот мой вариант:
Кидаешь на форму Button и Edit.

procedure TForm1.Button1Click(Sender: TObject);
var
  Value: Integer;
begin

  try
    Value := StrToInt(Edit1.Text);
  except
    ShowMessage('Неверно введены данные! Вводите только натуральное число!')
  end;

end;

Можешь вынести в отдельную функцию.
Опаздал немного.

[Saken_]

большое спасибо....

могу отблагодарить отзывом,если это тут возможно..

[Roof]

2 Saken_:
рекомендую к прочтению:
http://www.rsdn.ru/article/Delphi/Delphi_7_04.xml

[ex.cluz]

Мне "спасибо" достаточно. Удачи!

[BOBAH13]

val функция, она вам скажет о успешности или нет, произведенного конвертирования

[ex.cluz]

Ого! Val - это функция древняя.
Я не знаю, может, ее в новых версиях делфи переписали?
На 7-ой версии, помнится, она с DecimalSeparator сотрудничать отказывалась, поэтому, по-моему, более безопасно использовать конверсионные подпрограммы, типа StrToFloat (из SysUtils), где информация региона распознаётся.