Справочник функций и процедур Delphi: Exit

  Навигация по первой букве:

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

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

Exit
Процедура
Осуществляет выход из функции или процедуры System unit
  procedure Exit ;

Google  
 
Описание
Процедура 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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook