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;