Question

我对Delphi的辛勤感到有些麻烦。

我有记录:

type
  TMyType = record
    ....
  end;

程序:

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

我如何适当地将愤怒带给猛虎人解组织的一个点?

Answer 1

与此类似:

type
  PMyType = ^TMyType;

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

Answer 2

页: 1

  type PMyType = ^TMyType;

  ptr := PMyType(bar);

或

  ptr := pointer(bar);