天道酬勤,学无止境

变体结构

再说变体结构 - 回复 "彬" 的问题

再说变体结构 - 回复 "彬" 的问题 问题来源: http://www.cnblogs.com/del/archive/2009/03/01/1032376.html#1464477 假如有这样三种结构, 分别来描述: 直线、圆与三角形:type {描述直线的结构} TLine = packed record ID: Integer; {编号} x1,y1: Integer; {第一点} x2,y2: Integer; {第二点} end; {描述圆的结构} TCircle = packed record ID: Integer; {编号} x,y: Integer; {中心点} r: Integer; {半径} end; {描述三角形的结构} TTriangle = packed record ID: Integer; {编号} xa,ya: Integer; {a点} xb,yb: Integer; {b点} xc,yc: Integer; {c点} end; //无需 SizeOf, 我们可以轻松看出三个结构的大小分别是: 20、16、28 字节 上面三个结构的数据有类似之处, 在实用中常常需要用一个综合的结构替代它们; 这就像 Delphi 中的 TWMKey、TWMMouse、TWMClose 等近 200 个结构都可以用 TMessage 代替一样

2021-05-19 02:34:32    分类:博客    数据类型   变体结构