Delphi高手们,救火啊!!!请问:VC中的 RCV_DATA * pHeader=(RCV_DATA*)lPara; (RCV_DATA是一个记录类型)转成delphi格式,该如何表示?给分!!!

Question

Delphi高手们,救火啊!!!请问:VC中的 RCV_DATA * pHeader=(RCV_DATA*)lPara; (RCV_DATA是一个记录类型)转成delphi格式,该如何表示?给分!!!

Answer 1

说清楚一点,在msdn中找不到你所说的RCV_DATA

Answer 2

有本书叫<DELPHI高手突破>,上面可能有,到书店看一下去

Answer 3

var pHeader:^RCV_DATA;
    pHeader:=lPara;
//pHeader和lPara都是 RCV_DATA类型的指针（或者是和RCV_DATA类型兼容的类型，可以相互转化），

Answer 4

给你个例子，或许对你有帮助：
procedure TForm1.Button1Click(Sender: TObject);
var i:^integer;
    s:^string;
    str:string;
begin
    str:='123';
    new(i);
    s:=@str;
    i^:=strtoint(s^);
    caption:=inttostr(i^);
    dispose(i);
end;

Answer 5

你的vc程序的RCV_DATA
是什么样的

Answer 6

我的RCV_DATA的delphi的定义是:type
 tagRCV_REPORT_STRUCTEx = record
       m_wMarket : WORD;
       m_szLabel : string[255];
 end; tagRCV_DATA = record
      m_wDataType : integer;
      m_pReport : ^tagRCV_REPORT_STRUCTEx );
 end;var 
  RCV_DATA:tagRCV_DATA;

Answer 7

lPara就是消息中的LParam,类型是LONG;

Answer 8

lPara就是消息中的LParam,类型是LONG;

Answer 9

PRCV_DATA = ^tagRCV_DATA;
tagRCV_DATA = record
  m_wDataType : integer;
  m_pReport : ^tagRCV_REPORT_STRUCTEx );
end;var
  pHeader: PRCV_DATA
begin
  pHeader := (PRCV_DATA) lParam;试试这样行吗？