Оператор Using

Оператор Using используется для получения ресурса, выполнения блока вложенных операторов и освобождения ресурса.

using-statement:

Using   identifier   :=   expression   Do    block   End Using

Структура или класс, который реализует интерфейс System.IDisposable, называется ресурсом. Данный интерфейс имеет единственный метод без параметров называемый Dispose. Код, который использует ресурс, может вызвать метод Dispose для указания того что ресурс более не нужен.

Конструкция Using раскрывается следующим образом:

Begin

identifier   :=   expression;

Try

block

Finally

If identifier <> Null Then

(identifier as IDisposable).Dispose;

End If

End Try

End

Пример

Private Sub TestUsing();
Var
    a: Font;
Begin
    Using a := New Font("Arial", 10) Do
        //Использование полученного шрифта
    End Using;
End Sub;

См.также:

Операторы