type
TSampleEnumType = (seNone, seONE, seTWO, seTHREE, seFOUR);
TSampleRecord = record
SampEType: TSampleEnumType;
iValue: integer;
end;
const
TConstArrayofRecord: array [0..4] TSampleRecord (
(SampEType: seNONE; iValue: 0),
(SampEType: seONE; iValue: 1),
(SampEType: seTWO; iValue: 2),
(SampEType: seTHREE; iValue: 3),
(SampEType: seFOUR; iValue: 4),
);
Delphi declaring a constant array of records.
最新推荐文章于 2024-02-23 06:00:00 发布
本文介绍了使用枚举类型和记录类型的定义方法。通过定义枚举类型TSampleEnumType和记录类型TSampleRecord,展示了如何在程序中创建具有特定属性和值的数据结构。此外,还给出了一组常量数组TConstArrayofRecord的例子,该数组包含多个TSampleRecord实例。
5215

被折叠的 条评论
为什么被折叠?



