delphi - 有没有办法确定指针的类型？

Question

假设我有这些类型和变量:

type

TMyStruct1 = record
  Int1        : Integer;
  Int2        : Integer;
  Str1        : String;
  Str2        : String;
end;
PMyStruct1 = ^TMyStruct1;

TMyStruct2 = record
  Int1        : Integer;
  Int2        : Integer;
  Str1        : String;
  Str2        : String;
end;
PMyStruct2 = ^TMyStruct2;

var

P1: PMyStruct1;
P2: PMyStruct2; 

我有一个接受指针作为参数的函数。有没有办法确定函数是使用 P1 还是 P2 变量调用？

类似于:

function DoSomething(P: Pointer);
begin
 //if  ??? Type(P) = PMyStruct1 ??? then ....

Answer 1

您可以通过在结构中添加“标准 header ”来实现这一点。对于您的情况，指示结构类型的简单字段就足够了。

const 
  STRUCT_1 = 1;
  STRUCT_2 = 2;
type

TMyStruct1 = record
  StructType  : Integer
  Int1        : Integer;
  Int2        : Integer;
  Str1        : String;
  Str2        : String;
end;
PMyStruct1 = ^TMyStruct1;

TMyStruct2 = record
  StructType  : Integer
  Int1        : Integer;
  Int2        : Integer;
  Str1        : String;
  Str2        : String;
end;
PMyStruct2 = ^TMyStruct2;

var

P1: PMyStruct1;
P2: PMyStruct2;

function DoSomething(P: Pointer);
begin
  case PInteger(P)^ of //points to StructType
    STRUCT_1 : ;
    STRUCT_2 : ;
  end;
end;

无论谁调用您的函数，都将负责正确提供 StructType 字段。

作为向前兼容性措施，您还可以添加“StructSize”字段，以防您最终需要每个结构的多个版本。

这种类型检查是“弱”的，因为不能保证指针的类型正确，它只检查它指向的前 4 个字节是否包含 STRUCT_1 或 STRUCT_2。

现在，如果您不控制这些记录的定义，那么您就不走运了。