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);