地址怎么赋给变量。(30分)

wind28 · 2004-03-12

@feng:=GetProcAddress(hd,'ocomOpenPort(Port:Integer;BaudRate:Integer)');
@feng是一个地址，怎样将地址赋值给一个整型值，或将@feng地址的值SHOWMESSAGE出来。

hlfysj · 2004-03-12

试一试showmessage(vartostr(@Feng))

bjdribllec · 2004-03-12

var si:integer;
si:=0;
move(feng,si,sizeof(feng));
showmessage(inttohex(si,8)) ;

sunliu · 2004-03-12

定义一个integer类型的指针.就可以了.!

Aiirii · 2004-03-12

var I: integer;
begin
i := integer(@feng);

dedema · 2004-03-12

var
Num:Integer;
begin
Num:=Integer(@feng);
end;

wind28 · 2004-03-12

感谢各位！！