如何进行指针转换????只能给分100
///////////////////////////////////////////////////////
//消息头定义
type
MESSAGE_HEAD = Record
Send:WORD; //发送方的结点号
Receive:WORD; //接收方的结点号
Hostid:WORD; //暂时不用
end;
/////////////////////
///定义相应的指针
type
PMESSAGE_HEAD = ^MESSAGE_HEAD;
procedure myfun()
var pMsg:PChar;
pMsgHead:PMESSAGE_HEAD;
begin
//给pMsg分配内存 赋值
pMsgHead:= 111; --->//当然错误, 提示:Incompatible types: 'Integer' and 'ReqAddHost_msg'
pMsgHead:= PChar; -->但是,这里的提示却是: Incompatible types: 'Char' and 'ReqAddHost_msg'
-->我想把指针转换为结构体类型的.请问如何做?
end;