函數的地址 和 函數大小

procedure p1();

begin

end;

 

procedure p2();

begin

end;

 

 

取的一個函數的地址

  memo1.Lines.Add( Format('%x',[dword(@p1)])) ;

 

取的一個函數的大小

  memo1.Lines.Add( Format('%x',[dword(@p1)])) ;

  memo1.Lines.Add( Format('%x',[dword(@p2)])) ;

 

  dword(@p2)-dword(@p1);

 

 

function DeltaToJson(Delta:Variant):string;

var

  tmpDataSet: TClientDataSet;

begin

  tmpDataSet:= TClientDataSet.Create(nil);

  try

    tmpDataSet.Data:=Delta;

 

  finally

    tmpDataSet.Free;

  end;

end;