Проблема с Exit , Delphi XE2

[kta87]

Делаю проверку на адекватность полей ввода:

If a <> 0 then 
begin
 // тут код работы программы;
end
else
 begin
  ShowMessage('а = 0, это не допустимо!');
  Exit;
 end;

В 7 все было ОК, но в XE2 ругается на Exit. Как решить, этот вопрос?

[TorrentTor]

У меня все отлично, уверены что именно на Exit матерится?

[Stilet]

но в XE2 ругается на Exit

Только школота умеет скрывать текст ошибок )
Ты один из них?

P.S. Уверен что у тебя какая-то переменка или процедура названа этим именем.

[Человек_Борща]

Это не цикл.
Если

If a <> 0 then 
begin
 // тут код работы программы;
end
else
 begin
  ShowMessage('а = 0, это не допустимо!');
  Exit;
 end;
end; //<< - тут конец метода, то exit не нужен. Код и так завершается.

[Stilet]

Это не цикл.

А причем тут цикл? Ты наверное с break попутал
Exit же делает выход из подпрограммы.

[Человек_Борща]

break, прыгает за пределы цикла(в конец) и продожает код.
Exit вообще отваливает на конец метода.

Я к тому, что exit там не нужно использовать.

[kta87]

только что поднял ПК! Буду смотреть по совпадению компонента или процедуры/функции!
Exit нужно ставить, код в примере - это не есть код в программе. ПО должно остановиться при условии вот и все, не продолжать расчеты;
К сожалению не мог и тогда выложить код ошибки и щас не могу , еще не поставил Delphi

[TorrentTor]

Сообщение от Человек_Борща

Я к тому, что exit там не нужно использовать.

Так вроде не говорится что на этом условии заканчивается метод, или я что-то пропустил О_о

[kta87]

Оке все! Нашел элементы, которые имели идентичное название!
Stilet не могу тебе добавить +, пишет что нужно сначала еще кому нить поставить!