Zwei Objekte in einem oder zwei Try Finaly Blöcke?

[himitsu]

Man muß auch nicht nur an den Constructor denken, sondern auch an den Destructor.

Delphi-Quellcode:

B := nil;
A := TMyClass.Create;
try
  B := TMyClass.Create;
  ...
finally
  A.Free;  // wenn es hier knallt, dann hat man ein Leck
  B.Free;
end;

Lösungen:
* doch nicht zusammenfassen

oder

Delphi-Quellcode:

finally
  B.Free;
  A.Free;  // wenn es hier knallt, dann ist es egal, aber es darf natürlich nicht schon in B.Free knallen
end;

oder so

Delphi-Quellcode:

finally
  try
    A.Free;
  finally
    B.Free;
  end;
end;