会C++和DELPHI的朋友请帮个忙。着急！ ( 积分: 100 )

C++代码如下：
struct SCHead {
WORD m_nType;
char m_cStatus;
long m_lIndex;
};
struct SC_PankouAsk {
SCHead m_Head;
StockID m_sID;
long m_lDate;
};
typedef struct tagStockID {
WORD m_wMarket;
short m_nIndex;
} StockID;
DELPHI代码调用如下：
var
pp:^SC_PankouAsk;
tmpbuf: array[0..1024] of char;
m_lAskIndex:integer;
nIndex:integer;
wMarket:integer;
nAskLen:integer;
begin
m_lAskIndex := 1;
nIndex := 0;
wMarket := 0;
nAskLen :=0;
new(pp);
pp^.m_Head.m_nType:= SC_PANKOU;
pp^.m_Head.m_cStatus := 1;
pp^.m_Head.m_lIndex := m_lAskIndex;
pp^.m_sID.m_nIndex := nIndex;
pp^.m_sID.m_wMarket := wMarket;
pp^.m_lDate := strtoint(formatdatetime('yyyymmdd',now));
nAskLen:=sizeof(SC_PankouAsk)
//move(pp^, tmpbuf, sizeof(pp));
if ( nAskLen > 0 ) then
SCAskData(@pp,nAskLen);
end;
怎么出错呢。请问，上面的C++代码如何转化为DLPHI然后实现调用。

错误是什么，说清楚哦

读什么地址错误！

定义成Record
之后就可以了

我是那么定义的。但是结构里还有另个结构！我是这样定义的。请高人指教：
var
pp:^SC_PankouAsk;
aa:^StockID
begin
new(pp);
new(aa);
pp^.m_sID:=aa;
end;
这样行吗？

把所有的结构都用delphi的语法重新定一下
调用时该传指针就传指针
没问题的

我加你QQ了！Mike1234567890

多人接受答案了。