请问各位大哥,以下C语言定义的数据结构在Delphi里怎么表示?
typedef struct
{
char sMsgID[10+1];
unsigned int nIsReport;
unsigned int nMsgFormat;
char sRecvTime[14+1];
char sSrcTermID[21+1];
char sDestTermID[21+1];
unsigned int nMsgLength;
char sMsgContent[252+1];
}DeliverResp;

解决方案 »

  1.   

    DeliverResp = record
        sMsgID:        array[0..10] of Char;
        nIsReport:    Integer;
        nMsgFormat:    Integer;
        sRecvTime:     array[0..14] of Char;
        sSrcTermID:    array[0..21] of Char;
        sDestTermID:   array[0..21] of Char;
        nMsgLength:    Integer;
        sMsgContent:   array[0..252] of Char;
      end;
      

  2.   

    type
      DeliverResp = record
        sMsgID:        array[0..10] of Char;
        nIsReport:    Integer;
        nMsgFormat:    Integer;
        sRecvTime:     array[0..14] of Char;
        sSrcTermID:    array[0..21] of Char;
        sDestTermID:   array[0..21] of Char;
        nMsgLength:    Integer;
        sMsgContent:   array[0..252] of Char;
      end;
      

  3.   

    type    DeliverResp = record
            sMsgID: array[0..10 + 1] of Char;
            nIsReport: Word;
            nMsgFormat: Word;
            sRecvTime: array[0..14 + 1] of Char;
            sSrcTermID: array[0..21 + 1] of Char;
            sDestTermID: array[0..21 + 1] of Char;
            nMsgLength: Word;
            sMsgContent: array[0..252 + 1] of Char;
        end;
      

  4.   

    type    DeliverResp = record
            sMsgID: array[0..10 + 1] of Char;
            nIsReport: Word;
            nMsgFormat: Word;
            sRecvTime: array[0..14 + 1] of Char;
            sSrcTermID: array[0..21 + 1] of Char;
            sDestTermID: array[0..21 + 1] of Char;
            nMsgLength: Word;
            sMsgContent: array[0..252 + 1] of Char;
        end;procedure TForm1.Timer1Timer(Sender: TObject);
    var
    cctv:integer;
    Resp:^DeliverResp;
    begin
    new(resp);
    i:=SMGPDeliver(5,Resp);
    if cctv=0 then
       begin
       showmessage('内容:'+Resp^.sMsgContent);
       end;
    end;
    ///////////////////////////////////////////////
    为何运行后Resp^.sMsgContent为空?确定函数Resp^.sMsgContent有返回值.