Справочник функций и процедур 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 ;

Delphi Sources

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


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте