Und nochmal für andere Suchende...
Delphi-Quellcode:
type
TSplashType = ( stBackground, stLabelInfo );
var
SplashItems: array[TSplashType] of string = ('Background', 'LabelInfo');
...
procedure TWhatever.AddIt;
var
lCounter: TSplashType;
begin
...
for lCounter := Low(SplashItems) to High(SplashItems) do
TreeView.Items.AddChildObject(FNode,
SplashItems[lCounter],
pointer(Ord(lCounter)));
end;
@EWeiss: Das befreit dich nicht von dem Rat dringend über die Präfixe bei den Aufzählungen nachzudenken!
Und es ist recht schlechter Stil eine
Variable mit einem T vorne zu versehen. Das birgt Verwechslungsgefahr mit Klassen und Typendeklarationen.
Und warum fügst du das Ergebnis von StrToIntDef() der Baumstruktur hinzu? Deine Strings sind alle nicht wandelbar, somit sollte der hinzugefügte Pointer immer
NIL sein, bzw. der Integer 0.
Da dies recht sinnlos erscheint, habe ich in dem Beispiel einfach den Ordinalwert des Typs dort mit angehangen.