Delphi：如何在此过程（TMS Aurelius）中将对象和类作为参数传递？

Question

我在我的 UserController 类中有一个过程，可以根据他们的 ID 删除 TUser 类的对象。我想让一个 GenericController 类能够与任何其他类一起执行此操作。这是我的程序：

procedure TUserController.DeleteUser(User: TUser);
begin
  if not FManager.IsAttached(User) then
    User := FManager.Find<TUser>(User.ID);
  FManager.Remove(User);
end;

我试过这样做：

procedure TGenericController.Delete(Class_: TObject; Class_ID: Integer);
    begin
      if not FManager.IsAttached(Class_) then
        Class_ := FManager.Find<Tclass(Class_)>(Class_ID);
      FManager.Remove(Class_);
    end;

但我收到此错误：

[dcc32 Error] GenericController.pas(36): E2531 Method 'Find' requires explicit type argument(s)

这是从 TMS Aurelius 中查找的方法：

function TObjectManager.Find<E>(IdValue: Variant): E;
begin
  Result := E(Find(TClass(E), IdValue));
end;

Answer 1

泛型在编译时解析，但 Tclass(Class_)（可以替换为 Class_.ClassType）直到运行时才知道，因此它不能用作泛型参数值。

更新：正如 SirRufo 试图在 cmets 中解释的那样，您可以做更多这样的事情：

procedure TGenericController.Delete<E>(Obj: E; Obj_ID: Integer);
begin
  if not FManager.IsAttached(Obj) then
    Obj := FManager.Find<E>(Obj_ID);
  FManager.Remove(Obj);
end;

例如，如果TUserController 派生自TGenericController，那么DeleteUser() 可以这样做：

procedure TUserController.DeleteUser(User: TUser);
begin
  inherited Delete<TUser>(User, User.ID);
end;