Перечисления

Type
  MyEnum = ( Apple, Avocado, Banana=100, Cashew, Cherry=100, Coconut, Fig, Grape, Guava, Kiwi );
  
Procedure OnCreate;
Begin
  Warning(ToStr([Apple, Avocado, Banana, Cashew, Cherry, Coconut, Fig, Grape, Guava, Kiwi]));
  // Будет выведено на экран: 0, 1, 100, 101, 100, 101, 102, 103, 104, 105
End;

© RTIT