delphi - Delphi 中取消引用和分配指针的语法

Question

需要实现一个接口(interface)方法，其中传递一个指针，并且期望取消引用该指针并为其分配一个 OleVariant。执行此操作的语法是什么？

// Code I have no access to change
function GetEntry: string;
var
  value: OleVariant;
begin
  Entry(@value);  
  Result := VarToStr(value);
end;

// My code  
procedure Entry(Value: Pointer);
begin
  Value^ := ??? // Not sure whats the syntax here in order to assign an OleVariant
end

Answer 1

您可以使用如下所示的值转换:

OleVariant(Value^) := ...

或者，您可以转换指针:

POleVariant(Value)^ := ...