Delphi-Help

Описание

procedure Exit ;

Процедура Exit немедленно завершает выполнение текущей функции или процедуры.
При выходе из функции, результат содержит последнее значение.
Предупреждение: используйте с предостережением - это делает обслуживание кода трудным.

Пример кода

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

Примечание