Как остановить программу по условию?

[kta87]

В общем вопрос такого характера:
Проверяю на корректность ввода данных в поля Edit, если не корректно вывожу сообщение. Дальше программа должна остановиться и выделить что либо! Но на сегодняшний момент сообщение об ошибки выводится, а дальше программа выполняет последовательно всю процедуру и вылетает с ошибкой! как исправить?

[Johnson]

Форум телепатов находится по другому адресу.
Хотите ответ - пишите конкретно и с вырезкой из исходников.

[tsar_]

Ну, во-первых, лучше не дать возможности юзеру ввести кривые данные в Edit;
а во-вторых, если каким-то чудом ему это удастся, то для остановки программы пользуйтесь блоком try...except. А чтоб выйти принудительно из процедуры при ошибке используйте процедуру Exit.

[kta87]

не всегда это возможно: КИП (коэффициент использования парка) ограничиваю символьное ввод в этот Edit всего кроме цифр и "," но это коэффициент должен быть меньше или равен 1, иначе он ошибочен, но это уже ни как не ограничишь...Вот и прошу написать мне работающий кусочек кода по предотвращению работы процедуры в случае неверных данных!

Зачем вы отвечаете с цитированием предыдущего поста ?
Вы не видите кнопку справа от кнопки "Цитата" ? Или вам почему-то не видно пустое окно редактора под последним сообщением ?
За оверквотинг у нас штрафуют, имейте это ввиду. Дабы не нарушать правила, внимательно их почитайте:
http://programmersforum.ru/announcement.php?f=2
А пока - штраф за флуд, за нежелание эти правила соблюдать.
Штраф за флуд вроде бы невелик, но за 5 раз вполне набирается на бан...
Причем автоматически...

[Dush]

как вариант проверять значение в Edit в момент потери фокуса. событие называется onExit. в этом событии вставляйте проверку на правильность ввода.
еще можно использовать onKeyPress. тогда можно проверять ввод значения "на лету" т.е по мере ввода символов

[Вадим Мошев]

Вот и прошу написать мне работающий кусочек кода по предотвращению работы процедуры в случае неверных данных!

Это может выглядеть следующим образом:

MessageDlg('Ошибка!', mtError, [mbOK], 0);
exit; // принудительное завершение прцедуры

[Стелс]

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

В общем вопрос такого характера:
Проверяю на корректность ввода данных в поля Edit, если не корректно вывожу сообщение. Дальше программа должна остановиться и выделить что либо! Но на сегодняшний момент сообщение об ошибки выводится, а дальше программа выполняет последовательно всю процедуру и вылетает с ошибкой! как исправить?

try
ваш код
except
Application.Terminate;

[Пепел Феникса]

например по нажатию кнопки вычисления:

if KIP>1.0 then
 begin
  ShowMessage('КИП должен быть меньше или равен единице.');
  exit;
 end;

[kta87]

отлично ребята, огромное спасибо, ща все попробую, посмотрю что резвее!