Uiuiui, da wird wieder mit den dicksten Kanonen auf kleinste Spatzen geschossen!
Die Idee von Nuclearping ist die simpelste und wahrscheinlich am schnellsten umsetzbare Lösung.
Ggf. kann man das noch per Pseudonamespaces und Klassen schöner verpacken:
Delphi-Quellcode:
TLifeForms = class
public type
TAnimal = class
public type
TMammal = (Dog = 1, Cat = 27, Mouse = 15);
end;
TPlants = class
public type
TRoses = (DogRose = 23, RugosaRose = 58);
end;
end;