Delphi：如何释放动态创建的对象作为方法的参数

TMyObject=class(TObject)
  constructor Create();
  destructor Destroy();override;
end;

implementation

function doSomething(x:TMyObject):Integer;
begin
  //code
end;

procedure test();
var
  w:Integer;
begin
  w:=doSomething(TMyObject.create);
  //here: how to free the created object in line above?
end;

为了释放对象实例,您需要有一个对它的引用,您可以在其上调用Free().

由于您是作为参数就地创建对象实例,因此您将拥有的唯一引用是doSomething()参数内部的引用.

你要么必须在doSomething()中释放它(这是我不建议做的练习)：

function doSomething(x: TMyObject): Integer;
begin
  try
    //code
  finally
    x.Free;
  end;
end;

或者,您需要在test()中创建一个额外的变量,将其传递给doSomething(),然后在doSomething()返回后释放它：

procedure test();
var
  w: Integer;
  o: TMyObject
begin
  o := TMyObject.Create;
  try
    w := doSomething(o);
  finally
    o.Free;
  end;
end;

虽然有人可能认为使用引用计数对象将允许您就地创建对象并让引用计数释放对象,但由于以下编译器问题,这种构造可能不起作用：

The compiler should keep a hidden reference when passing freshly created object instances directly as const interface parameters

前Embarcadero编译工程师Barry Kelly在StackOverflow答案中证实了这一点：

Should the compiler hint/warn when passing object instances directly as const interface parameters?