孤独的猫

摘要： Implementation goes this way: 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: se 阅读全文

摘要： const DayList: array[0..6,1..4] of SmallInt =((1, 5,11,1), (6, 10,11,1), (11,15,17,2), (16,20,23,3), (21,25,23,3), (26,31,11,1), (99,99,17,2) ); TShopItem = record Name : string; Price : currency; end;const Items : array[1..3] of TShopItem = ( (Name : 'Clock'; Price : 20.99), (Name : 'Pe 阅读全文