Отсутствие текста в Edit'е

[Matrix6993]

Помогите пожалуйста с одной вещью. У меня на форме имеется 3 Edit'а, в них нужно вводить только цифры. Я запретил в них ввод букв, пробелов и символов. Но проблема в том что когда я запускаю программу и вообще туда ничего вожу, даже цифры, и нажимаю кнопку "Ввод", мне выдается какая то мне не известная системная ошибка. А я бы хотел, что бы когда после того как запускается программа и туда ничего не вводиться и нажимается ВВОД, хочу что бы выводилось сообщение с текстом "Введите пожалуйста данные в поля ввода!" и рядом кнопка ОК, ну для того чтоб продолжить работать с программой. Пожалуйста подскажите как это организовать! Заранее спасибо!

[Mad_Cat]

if trim(edit.text)='' then begin showmessage('Введите пожалуйста данные в поля ввода!');exit;end;

[Matrix6993]

спасибо! этот код работает только после того как в Edit введешь цифру и тут же ее сотрешь, то сообщение сразу выскакивает! НО тут надо что бы вообще не вводить и не стерать! нужно что бы если хотябы в 1 Edit'е ничего нет то ПОСЛЕ нажатия кнопки выводиться это сообщение!

[Anton911]

Сообщение от Matrix6993

спасибо! этот код работает только после того как в Edit введешь цифру и тут же ее сотрешь, то сообщение сразу выскакивает! НО тут надо что бы вообще не вводить и не стерать! нужно что бы если хотябы в 1 Edit'е ничего нет то ПОСЛЕ нажатия кнопки выводиться это сообщение!

If Edit1.text<>'' then 
begin
//делаем едйствия
end
else
Showmessage('Введите пожалуйста данные в поля ввода!');

у меня так все работает.

[Smitt&Wesson]

Если Вам нужно вводить только цифры, используйте вместе с Edit компонент UpDown.
Он расположен на вкладке Win32.

[FaTaL]

У вас что-то в коде. Киньте свой обработчик ввода только цифр. В последних версиях Delphi у Edit'а есть свойство, которое даёт вводить только цифры.

[3D Hunter]

Если версия Delphi 2010 и выше, то достаточно поставить у Edit'а свойство NumbersOnly=True.
Чтобы предупредить пустые едиты, напишите в обработчике кнопки код:

if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='')
then
  ShowMessage('Введите пожалуйста данные в поля ввода!')
else
//ваши дальнешие действия по обработке данных

[Matrix6993]

Не выходит почему то? (((

[chertovich]

Лучше используйте

TryStrToInt()

и не парьтесь

[Matrix6993]

Сообщение от chertovich

Лучше используйте

TryStrToInt()

и не парьтесь

А что делает этот код!?