Delphi-指向指针和返回的值

其中,aValue是一个TValue,@aValue则是指向TValue结构的指针,而不是它包装的值。更好的设计是使OnReadMessageParameter事件将其DataRef参数类型化为TValue本身,而不是非类型化指针。

然而,如果无法控制,则需要将DataRef转换为指向TValue的指针,然后遵从它-

type
  PValue = ^TValue;
var
  val: TValue;
begin
  val := PValue(DataRef)^;

DoOnReadMessageParameter 但你知道的 DataRef TValue 然后:

type
   PValue = ^TValue;

procedure [someclass].DoOnReadMessageParameter(Sender: TROMessage; const aName: string; 
       aTypeInfo: PTypeInfo; const DataRef : pointer; Attributes: TParamAttributes);

var
   HaveObject : boolean;

begin
   HaveObject := PValue(DataRef).IsObject;
   //...
end;

假设你可以控制 DoOnReadMessageParameter OnReadMessageParameter :

type
   PValue = ^TValue;

procedure [someclass].DoOnReadMessageParameter(Sender: TROMessage; const aName: string; 
       aTypeInfo: PTypeInfo; const DataRef : PValue; Attributes: TParamAttributes);

var
   HaveObject : boolean;

begin
   HaveObject := DataRef.IsObject;
   //...
end;

如果您可以同时控制这两项:

OnReadMessageParameter(Self, aName, aTypeInfo, aValue, [psIsTValue]);

procedure [someclass].DoOnReadMessageParameter(Sender: TROMessage; const aName: string; 
       aTypeInfo: PTypeInfo; const DataRef : TValue; Attributes: TParamAttributes);

最后,如果