Delphi——将整数转换为类型化指针？

Question

我在使用 Delphi 语法时遇到一些问题。

我有一条记录：

type
  TMyType = record
    ....
  end;

和一个过程：

procedure Foo(bar:Integer);
var
  ptr : ^TMyType
begin
  ptr := bar //how to do this?
end;

如何正确地将整数转换为 TMyType 的指针？

Answer 1

像这样：

type
  PMyType = ^TMyType;

procedure Foo(bar: Integer);
var
  ptr: PMyType;
begin
  ptr := PMyType(bar);
end;

Answer 2

您必须使用新类型显式地强制转换：

  type PMyType = ^TMyType;

  ptr := PMyType(bar);

或者

  ptr := pointer(bar);