So, habe das ganze überarbeitet und so hergerichtet, dass es nur ein Minnimaler Aufwand ist, eine benutzerdefinierte Collection für eine eigene Klasse zu erzeugen, welche voll Typisiert ist. Eine solche Klasse hat ca. nur 100 Zeilen.
Liste aller Klassen:
Delphi-Quellcode:
TCustomList
TCustomComparer (Kopier-Vorlage)
TPointerList
TPointerComparer
TIntegerList
TIntegerComparer
TBaseObjectList (Interne Basisklasse)
TObjectComparer
TAbstractObjectList (Basisklasse für alle auf TObject basiernden Klassen)
TObjectList
TCustomObjectList (Kopier-Vorlage)
TCustomSortedList (Kopier-Vorlage)
TBaseObjectSortedList (Interne Basisklasse)
TAbstractObjectSortedList (Basisklasse für alle auf TObject basiernden Klassen)
TObjectSortedList (Kopier-Vorlage)
TCustomObjectSortedList
SortedList's verwalten Key-Value-Beziehungen, die Keys sind dabei immer Integer und immer sortiert. Dadurch kann ein Key sehr schnell gefunden werden und das dazugehörige Value.
Einfach z.B. die Klasse TCustomObjectList kopieren und dann erst "TCustomValue" zu "TMyClass" und dann "TCustom" zu "TMyClass". Das Ergebnis wäre dann eine TMyClassObjectList, welche eine Liste von TMyClass verwalten kann.
Wäre schön wenn jemand so etwas auch braucht
Ach ja und entschuldigung wenn ich den Klassennamen "TObjectList" verwende bzw. dadurch überschreibe, aber die von Borland kann eh nicht so viel
Größe der Bibliothek: 3.500 Zeilen