Delphi-Help

Exit

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

Exit

Описание

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

Примечание

Авторизация



Счетчики