Извлечь вложенные блоки try / finally

В классах есть три особенности, которые делают эту идиому безопасной и простой:

1. Во время фазы выделения памяти конструктора (перед запуском реального тела конструктора) поля ссылки на класс инициализируются значением nil.
2. Когда в конструкторе возникает исключение, деструктор вызывается автоматически.
3. Всегда безопасно вызывать Free по нулевой ссылке, поэтому вам никогда не нужно сначала проверять Assigned.

Поскольку деструктор может полагаться на то, что все поля имеют известные значения, он может безопасно вызывать Free для всего, независимо от того, как далеко ушел конструктор до сбоя. Каждое поле либо будет содержать действительную ссылку на объект, либо будет нулевым, и в любом случае его можно безопасно освободить.

constructor TDoSomething.Create;
begin
  Resource1 := AcquireResource1;
  Resource2 := AcquireResource2;
  Resource3 := AcquireResource3;
end;

destructor TDoSomething.Destroy;
begin
  Resource1.Free;
  Resource2.Free;
  Resource3.Free;
end;

Используйте его так же, как и любой другой класс:

Context := TDoSomething.Create;
try
  Context.UseResources;
finally
  Context.Free;
end;

Да, вы можете использовать один блок try / finally / end для нескольких ресурсов с нулевой инициализацией.

Другое возможное решение можно найти в блоге Барри Келли

В исходном коде Delphi используется шаблон с тестированием на Assigned in finally. Вы делаете то же самое, но я думаю, вам следует переместить Context.Init для захвата исключения из Context.Init.

procedure DoSomething;
var
  Context: TDoSomething;
begin
  try
    Context.Init;
    Context.UseResources;
  finally
    Context.Done;
  end;
end;

Редактировать 1 Вот как вы должны это сделать без Context.Init и Context.Done. Если вы поместите весь код AquireResource перед try, вы не освободите Resource1, если получите исключение в AcquireResource2

procedure DoSomething;
var
    Resource1: TSomeKindOfHandleOrReference1;
    Resource2: TSomeKindOfHandleOrReference2;
    Resource3: TSomeKindOfHandleOrReference3;
begin
    Resource1 := nil;
    Resource2 := nil;
    Resource3 := nil;
    try
        AcquireResource1;
        AcquireResource2;
        AcquireResource3;

        //Use the resources

    finally
        if assigned(Resource1) then ReleaseResource1;
        if assigned(Resource2) then ReleaseResource2;
        if assigned(Resource3) then ReleaseResource3;
    end;
end;