Delphi指针相关函数

1. Addr

function Addr(X): Pointer;：返回指定对象的地址。

var
  I : Integer;
  NodeNumbers: array [0 .. 100] of Integer;
 begin
  with TreeView1 do
  begin
    for I := 0 to Items.Count - 1 do
    begin
      NodeNumbers[I] := CalculateValue(Items[I]);
      Items[I].Data := Addr(NodeNumber[I]);
    end;
  end;
end;

2. Assigned

function Assigned(const P): Boolean;：用于测试指定的对象是否为空。其中，如果参数P存在并且不为Nil，则返回True。

var P: Pointer;

begin
  P := nil;
  if Assigned (P) then Writeln ('You won''t see this');
  GetMem(P, 1024);	{P valid}
  FreeMem(P, 1024);	{P no longer valid and still not nil}
  if Assigned (P) then Writeln ('You''ll see this');
end;

 

3. FreeAndNil

procedure FreeAndNil(var Obj);：释放指定对象，并设置为空。

 

4. Ptr

function Ptr(Address: Integer): Pointer;：将一个地址转换为指针。