Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
Exit
Процедура
Осуществляет выход из функции или процедуры System unit
  procedure Exit ;
Описание
Процедура 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
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия