Delphi - 如何从函数返回不同的类型

Question

Delphi Rio - 我正在编写一个类，其中一个函数是 AddFilter。当 AddFilter 类被执行时，根据各种因素，它要么创建一个过滤器，要么创建一个切片器。 （想想 Excel 过滤器和切片器）。我希望该函数返回新创建的对象，即 tFilterElement 或 tSlicerElement，它们是独立的、不相关的类。我的挑战是如何拥有一个可以返回新创建的对象的函数；哪个可以是 2 个不同的类之一？我想在这里使用变体，但我无法让它工作。伪代码是

function TPivotTable.addFilter(params...):Variant;
var
E1 : tFilterElement;
E2 : tSlicerElement;

begin

... if this can be a Filter
E1 := TFilterElement.Create(params);
result := E1;

... else
E2 := TSlicerElement.Create; 
result := E2;
 
end;

我试过了

result := E1 as Variant;

还有

result := Variant(E1);

但两者都不起作用。有没有办法做到这一点？我与变体无关，只是想不出任何其他可行的方法。

Answer 1

您始终可以将结果类型声明为TObject，或TFilterElement 和TSlicerElement 的任何其他共同祖先：

function TPivotTable.AddFilter(...): TObject;
begin
  if SomeCondition then
    Result := TFilterElement.Create
  else
    Result := TSlicerElement.Create;
end;

当你使用这个函数时，你必须调查结果并查看它是什么类：

MyThing := MyPivotTable.AddFilter(...);
if MyThing is TFilterElement then
  TFilterElement(MyThing).DoSomeFilterStuff
else if MyThing is TSlicerElement then
  TSlicerElement(MyThing).DoSomeSlicerStuff
else
  raise Exception.Create('Neither a filter nor a slicer was returned.');

说了这么多，这似乎是一个相当糟糕的设计。 （所有is 检查和强制转换都是这种情况的标志。）

我不知道您的应用程序，但也许您可以创建一个类 TElement，并将 TFilterElement 和 TSlicerElement 作为后代类？