| Описание |
Процедура Exit немедленно завершает выполнение текущей функции или процедуры.
При выходе из функции, результат содержит последнее значение.
Предупреждение: используйте с предостережением - это делает обслуживание кода трудным.
|
|
| Похожие команды |
Break Выполняет выход из одного цикла
Continue Заставляет перейти к следующей итерации цикла
Goto Вызывает скачок к метке, независимо от вложения
Halt Заканчивает программу с дополнительным диалогом.
RunError Заканчивает программу с диалогом ошибки
| |
|
| Пример кода : Выход из процедуры, когда пользователь отменяет ввод данных |
begin
// Спрашиваем у пользователя
его имя
ShowMessage('Name = '+AskForName);
end;
// Спрашиваем у пользователя его имя и фамилию
function TForm1.AskForName: string;
var
firstName, secondName : string;
begin
Result := 'Lazy person';
repeat
if not InputQuery('Test program', 'Имя :', firstName)
then Exit;
if not InputQuery('Test program', 'Фамилия :', secondName)
then Exit;
until (firstName <> '') or (secondName <> '');
Result := firstName + ' ' + secondName;
end;
|
Если пользователь отменит превый или второй диалог, то диалог ShowMessage выдаст:
Имя = Lazy person
|
|
