指针地址赋值
给定一个变量,将该变量值作为指针地址赋给一指针,VC可以做强制转换:
unsigned long Param
int * p=null;
Param=123456
p = (int *)Param;
DELPHI怎么处理?
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
p,q :PInt;
param :longint;
begin
New(p);
param :=Integer(p);//取得地址，实际上就是一个4字节的整数。
q := PInt(param); //将这个整数作为地址赋给q
q^ := 100;
showmessage(intToStr(q^));
Dispose(p);
end;