Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Как в Memo прокрутить текст
   Категория: Компоненты
  Изменить структуру ABS (AbsoluteDB)
   Категория: Базы данных
  Как нарисовать фрактал
   Категория: Математика
  Упаковать BD Accuracer
   Категория: Базы данных
  Список ошибок BDE
   Категория: Базы данных
  Определить МАС-адрес карты
   Категория: Интернет и Сети
  Изменить пароль для Paradox
   Категория: Базы данных
  Wav файл внутри exe-файла
   Категория: Файловая система
  Поиск по EasyTable
   Категория: Базы данных

Delphi - Справочник: Finally

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 Finally
Try
Statement
{Statement...}
Finally
Statement
{Statement...}
End;
Ключевое слово (Unit )
Начинает безоговорочный раздел кода инструкции Try
Описание:
Ключевое слово Finally используется, чтобы отметить начало конечного блока инструкций в инструкции Try. Они будут выполнены независимо от того, что случится в инструкциях Try.

Однако, предложение Finally фактически не обрабатывает никаких исключений - программа закончится, если никакое предложение Except не найдено (см. примечания ниже).

Try-Finally обычно используется подпрограммой, чтобы позволить освободить ресурсы.
Пример кода: Деление на ноль с предложением finally

var number, zero : Integer; begin // Попытка деленя целого числа на нуль - чтобы поднять исключение number := -1; Try zero := 0; number := 1 div zero; ShowMessage('number / zero = '+IntToStr(number)); Finally if number = -1 then begin ShowMessage('Числу не было присвоено значение - использование значения по умолчанию'); number := 0; end; end; end;

Результат:
Числу не было присвоено значение - использование значения по умолчанию

Затем, программа заканчивается с сообщением об ошибке EDivByZero -, предложение finally не выловило ошибку.
Примечание:
Try
...
Except
...
Finally
...
End;

где исключения заманены в ловушку и обработаны, но в любом случае, набор инструкций очистки будут выполнены. Это может быть достигнуто с помощью вложенных инструкций Try:

Try
Try
...
Except
...
End;
Finally
...
End;

  << Вернуться