大佬教程收集整理的这篇文章主要介绍了如何将C联合转换为delphi？，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。
德尔福
@H_874_11@Tparam_union_params_t = packed record case Integer of 0: (param_float:singlE); 1: (param_int32:Int32); 2: (param_uint32:UInt32); ... ... end; Tparam_union_t = packed record param:Tparam_union_params_t // This method requires var name. type:UInt8; end;
C郎
@H_874_11@#ifdef __GNUC__ #define PACKED( __Declaration__ ) __Declaration__ __attribute__((packed)) #else #define PACKED( __Declaration__ ) __pragma( pack(push,1) ) __Declaration__ __pragma( pack(pop) ) #endif PACKED( typedef struct param_union { union { float param_float; int32_t param_int32; uint32_t param_uint32; int16_t param_int16; uint16_t param_uint16; int8_t param_int8; uint8_t param_uint8; uint8_t bytes[4]; }; // This no-named union. no-named is important. uint8_t type; }) param_union_t;
@H_874_11@param_union_p = ^param_union_t; param_union_t = packed record case Integer of 0: (param_float: SinglE); 1: (param_int32: Int32); 2: (param_uint32: UInt32; // add the members after the union to the largest branch. &type: UInt8); 3: (param_int16: Int16); ... ... end; PParamUnion = ^TParamUnion; TParamUnion = param_union_t;
它也可以添加到相同大小的Single或Int32分支中,而不是在UInt32分支中.这仍将导致与C中的结构相同的内存布局,其中& type位于偏移4处,并且记录的大小为5,这就是所有重要的.请查看文章中的图表以获得澄清：
这样,就不需要为union部分提供自己的类型和自己的名称.如果您不相信“技巧”,请使用code I give in the same article检查C和Delphi中的偏移量.
Borland和Embarcadero以及Delphi-jeDI使用(d)同样的技巧来翻译匿名联合,Delphi TVarRec(用于const参数数组)和TVarType(用于Variants)记录也是这样构建的.
以上是大佬教程为你收集整理的如何将C联合转换为delphi？全部内容，希望文章能够帮你解决如何将C联合转换为delphi？所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。