Liste von Records

[Getox]

Guten morgen,

Ich habe wieder eine Stelle wo ich nicht so recht weiter weis.

Und zwar habe ich ein Programm, wo Aufträge in Form von Records verwaltet werden sollen.

Ich habe überlegt, die Records dann in einer Liste zu speichern. Diese möchte ich dann über den Index ansprechen und immer wenn ein Auftrag erledigt ist will ich dann halt Eintrag [0] löschen und die anderen sollen nachrücken.

Ich hab aber noch nie mit Listen überhaupt gearbeitet und habe viele verschiedene Posts gefunden, wie ich das handhaben kann. Diese Einträge sind aber teilweise schon 6 oder 7 jahre alt und ich weis nicht, ob diese dann noch aktuell sind.

Daher: Was für Listen soll ich jetzt nehmen und wie verwende ich diese dann speziell mit Records?

LG
Getox

[Medium]

Wenn du statt Records Klassen nähmst, böte sich die TObjectList (Unit Cntnrs) an. Durch die "OwnsObjects"-Property ließe sich gerade im Bezug auf die Speicherverwaltung vieles komfortabler machen, als mit Records. (Zumindest wenn man nur die mitgelieferten Listenklassen nutzen möchte.)
Da Delphi 2007 noch keine Generics kennt, müsstest du dich zudem noch mit Typecasts beschätfigen, und für etwas mehr Komfort auch mit dem Ableiten einer entsprechend typisierten ObjectList (so das bei der Verwendung die Casts nicht mehr nötig wären).

Grundsätzlich sind die alten Artikel hier noch voll zustreffend für dich, da sich dort erst so wirklich mit D2009 wegen der Generics etwas geändert hat.

[Getox]

Jagut, ich habe halt ein Record gewählt, weil es ja "böse" ist, wenn man Objekte als reine Datenbehälter missbraucht...

[Blup]

Das ist keinesfalls böse, jedenfalls nicht schlechter als Records.
Es ist sogar meist eine sehr gute Entscheidung, fachliche Logik von der reinen Datentransportschicht zu trennen.

[Popov]

@Getox

Vergiss TList, nimm wie Medium es vorgeschlagen hat TObjectLIst. Letztendlich ist es fast das gleiche in dunkel grün, bringt aber paar Vorteile.

Ein großer Vorteil ist, dass man sich (je nach Einstellung) nicht mehr um die Freigabe der Ojekte alleine kümmern muss. Braucht man ein Item nicht, löscht man es und das beinhaltende Objekt wird automatisch freigegeben. Im Unterschied zu anderen Listen, wo man sich selbst drum kümmern muss.

Und ob du nun Records oder Objekte nimmst

TTest = class
Name: string;
Alter: Byte;
end;

beides sollte funktionieren.

[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.