如何将多个不同的记录（由于delphi限制而不是类）传递给函数？

Question

由于 Delphi 的限制，我有许多记录无法转换为类（所有记录都使用类运算符来实现比较）。但我必须通过将它们存储在一个不知道我正在使用哪种记录类型的类中。

像这样的事情：

type R1 = record
begin 
  x :Mytype;
  class operator Equal(a,b:R1)
end;

type R2 = record
begin 
  y :Mytype;
  class operator Equal(a,b:R2)
end;

type Rn = record
begin 
  z :Mytype;
  class operator Equal(a,b:Rn)
end;

type TC = class
begin
  x : TObject;
  y : Mytype;
  function payload (n:TObject)
end;

function TC.payload(n:TObject)
begin
  x := n;
end;

program:
  c : TC;
  x : R1;
  y : R2;
  ...
  c := TC.Create():
  n:=TOBject(x);
  c.payload(n);

现在，Delphi 不接受从记录到 TObject 的类型转换，并且由于 Delphi 的限制，我无法将它们创建为类。

任何人都知道如何将不同的记录传递给函数并在需要时识别它们的类型，就像我们对类所做的那样：

if x is TMyClass then TMyClass(x) ... 

???

Answer 1

我认为您不能将不同的记录传递给单个函数，但您可以创建多个重载函数。就像这样：

type TC = class
begin
  x : TObject;
  y : Mytype;
  function payload (aRec : R1); overload;
  function payload (aRec : R2); overload;
end;

这能解决你的问题吗？

Answer 2

您可以将它们转换为类，只需使用虚拟的“IsEqual”函数对“Equal”运算符进行反混淆即可。它将简化您的问题并极大地阐明您的代码。

Answer 3

记录没有运行时类型信息，这是您检测其类型所需的信息。

除了重载之外，你还可以传递类型，你可以这样做：

procedure Payload(aType : longint; data : Pointer);
var
  pr1 : ^R1;
  pr2 : ^R2;
  prN : ^RN;
begin
  case aType of
    0 : pr1 := data; // might require a cast
    1 : pr2 := data;
    2 : prN := data;
  end;
end;
Payload(0,@r1);

或者你可以这样做，但鸽子会哭泣：

procedure Payload(aType : longint; var data);
var
  r1 : R1 absolute data;
  r2 : R2 absolute data;
  rN : RN absolute data;
begin
  // just be sure to check type before using the variable
end;
Payload(0,r1);

Answer 4

如果您使用的是 Delphi 2010，您可能可以传递指向这些记录的指针，并使用运行时类型信息来检测实际传递的是哪一个。但这将是非常难看的代码，而且可能也很慢。

转换为类并使用函数调用而不是运算符重载会更具可读性。