type
TAccessRight = (iaRead, iaWrite);
TAccessRights = set of TAccessRight; TDemoRecord = record
ItemName: string;
AccessRight: TAccessRights;
Result: integer;
end; TArraryRecord = array of TDemoRecord;const T <--如何赋初值?
TAccessRight = (iaRead, iaWrite);
TAccessRights = set of TAccessRight; TDemoRecord = record
ItemName: string;
AccessRight: TAccessRights;
Result: integer;
end; TArraryRecord = array of TDemoRecord;const T <--如何赋初值?
如果是TDemoRecord的话,就需要重载=了,但是不知道行不行 :(
T只能声明为结构数组进行赋值,可以这样赋值:
const
T : array [1..5] of TDemoRecord = (
(ItemName :'Test';AccessRight:iaRead;result :1),(......),
(......)......);