Liste von Records

[ASM]

In seinem Buch "Tomes of Delphi: Algorithms and Data Structures" hatte Bucknall (Bucknall, Julian M.) u.a. den Sourcecode einer 'Record list class' veröffentlicht.
Wenn man das Buch nicht hat: auch auf Bucknalls 'OLD personal web site' kann dieser Code heruntergeladen werden als ZIP-File (ToDADS_source.zip): http://www.boyet.com/FixedArticles/DADSBook.html.
Im ZIP-File ist die Unit TDRecLst enthalten. Benötigt wird außerdem die Unit TDBasics sowie das Includefile TDDefine.inc, die beide ebenfalls im ZIP-File vorhanden sind.

Der Code stammt zwar bereits aus 2001, ist aber auch heute immer noch erfolgreich verwendbar, jedenfalls solange man mit reinen Ansistrings arbeitet. Nur wenige, geringfügige Anpassungen sind dazu notwendig:
1) in der TDDefine.inc die Compiler-Definitionen entsprechend der verwendeten Delphi-Versionen ergänzen.
2) zur Verwendung mit neueren Delphi-Versionen (nach D7, getestet mit D-XE) alle String-Deklarationen explizit als Ansistring deklarieren sowie alle API-calls CompareString als CompareStringA ausführen. Für D7 sind diese Änderungen natürlich nicht erforderlich, da ja dort alle Strings implizit Ansistrings sind.
Vermutlich kann man den Code auch zur Verwendung für Widestrings anpassen, habe ich selbst aber bisher nicht gebraucht.