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
 



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