Hallo,

seit längerer Zeit ist bei mir diese Unit in Verwendung, wenn es darum geht, mehrere Daten gleichen Typs in einer Datei zu speichern. Da eine Datenbank für diese Fälle viel zu übertrieben war, habe ich sie geschrieben und möchte sie euch nicht vorenthalten... (siehe Anhang)

Im Kopf der Unit kann der Datentyp festgelegt werden, der in der Datei gespeichert wird (ist ein Record).

Die Routinen machen dann den Rest.

Der Konstruktor bekommt als Argument den gewünschten Dateinamen und schon kann man mit
> Clear() -> alle Elemente löschen
> addElement(DataSet: TDataSet) -> Ein Element (DataSet) am Ende anfügen
> addElement(Index: Integer; DataSet: TDataSet) -> Ein Element (DataSet) an Position Index einfügen
> getElement(Index: Integer): TDataSet -> Das Element an Position Index auslesen
> delElement(Index: Integer): Boolean -> Das Element an Position Index löschen (gibt zurück, ob es funktioniert hat)

TDataSet ist der Record, der am Anfang der Unit definiert wurde...

Wenn ihr Ideen/Kritiken/Verbesserungsvorschläge habt, immer her damit

Viele Grüße,
Chris

PS: Die Unit ist sehr gut kommentiert, also auch für Anfänger geeignet...

Edit: Oder hätte ich dies lieber in der CodeLib posten sollen?