结构体定义
type
  PAPIAlarm = ^TAPIAlarm;
  TAPIAlarm = packed record
    AlarmTime: TDateTime;
    AutoHandled: Boolean;
    ManualSend: Boolean;
    Key: array[1..10] of Byte;           
                                         
    case AlmFlag: Char of
      '1':(
        ClientID: string[8];    
        ERFlag: Char;    
        AlarmCode: string[3]; 
        AlarmText: string[20];
        OrgAlarmCode: string[5];
        case ZUFlag: Char of
          'C': (ZoneID: string[3]);
          'U': (UserID: string[3]);
      );
      '0':(
        sMsg: string[60];
      );
  end;如题 谢谢

解决方案 »

  1.   

    struct TAPIAlarm {
           DateTime AlarmTime;
           Boolean AutoHandled;
           ...
           unsigned char Key[11];
           union  {
                  ......
      

  2.   

    struct Tapialarm
        {
         Date AlarmTime;
         Bool AutoHandled;
         byte key[11];
         .......     }
      

  3.   

    两位大哥,我就是剩下你俩没写的看不懂
    case AlmFlag: Char of
          '1':(
            ClientID: string[8];    
            ERFlag: Char;    
            AlarmCode: string[3]; 
            AlarmText: string[20];
            OrgAlarmCode: string[5];
            case ZUFlag: Char of
              'C': (ZoneID: string[3]);
              'U': (UserID: string[3]);
          );
          '0':(
            sMsg: string[60];
          );
    尤其是 case ZUFlag: Char of
              'C': (ZoneID: string[3]);
              'U': (UserID: string[3]);看不明白,你俩都没翻译,555555555555