Zitat von
Roachford:
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.
Danke für die Info!
In dem Fall hätte ich eine doppelte definition von SplashItems oder ?
Was macht oder soll die zusätzliche Type da bezwecken ?
Ich frage deshalb da meine variante genauso funktioniert
Mit der Namensgebung ok gebe ich dir recht
gruss Emil