这个结构怎么转换为Delphi，请前辈高手们指点，不胜感激！

[chen6635]

typedef struct
{ unsigned short _sid;
time_t _lstime;
time_t _tstime;
float _value;
union{
float _avalue;
time_t _tag;
};
UInt32 _acount;
}kIAItemLee;

typedef struct
{
char _sType[1];
char _sname[16];
char _rstyle;
int _x;
int _y;
double _lat;
double _lng;
Uint8 _state;
time_t _online;
time_t _fitime[16];
short _lvcount;
kIAItemLee _kias[GROUP_ITEM_LEE_CNT];
}kIAItem;

[chen6635]

引用 1 楼 xiaocongzhi 的回复:

type klAltemLee=record _sid: Word; ... ... end;

谢谢你的回复！主要是这里面数据类型的对应转换不熟悉！

[xiaocongzhi]

type klAltemLee=record _sid: Word; ... ... end;

[日立奔腾浪潮微软松下联想]

time_t =integer float=single char=AnsiChar union用record的变体部分实现

[xernet]

帮你第一个结构吧，第二个你自己动手依葫芦画葫芦吧，毕竟现在会delphi的不多了。 type TUnion = record case Integer of 0: (_dat: array[0..3] of Byte); 1: (_avalue: Real); 2: (_tag: Integer); end; type TkIAItemLee = record _sid: Word; _lstime: Integer; _tstime: Integer; _value: Real; _dat: array[0..3] of Byte; //这个字段实际是4字节,获取或者设置的时候可以用上面的TUnion结构来转换. _acount: Cardinal; end;

[日立奔腾浪潮微软松下联想]

#4的翻译方法是可行的，但是有点复杂，访问内嵌联合的时候需要强制类型转换。实际上虽然Pascal的记录变体部分看起来有些莫名其妙的限制，只允许出现在记录的最后部分，实际限制只是不允许出现多个并列变体，但是允许嵌套，而且变体之后不能再有结构成员的限制可以很容易克服，顺延到结构尺寸最大的那个变体部分之内即可，而且Pascal的记录内部也可以嵌套记录，表达能力并不次于C结构。 楼主的第一个结构可以这样实现： type time_t = integer; float = single; kIAItemLee = record _sid: word; _lstime: time_t; _tstime: time_t; _value: float; case integer of 0: (_avalue: float); 1: (_tag: time_t; _acount: cardinal); end; 访问方式可以和C结构完全一致。

[ppluming]

1. 前面把数据类型转换都说完了，前面说的很对。 2. 数据结构里面带char类型的，需要写成 packed record。 如 kIAItem= record end； 需要写成 kIAItem= packed record end；

[ppluming]

3. 转换后的数据结构自己写吧，写后测试下，就不给你具体的答案了。

[chen6635]

好久没上来了，谢谢大家！

[chen6635]

分数太少，难为情，请多担待！！！