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 发布