Ich schließe mich Jelly an:
Die Records sind wesentlich verschieden, also erstelle zwei verschiedene Klassen, abgeleitet von TObject.
Du brauchst dafür eigentlich nur Konstruktor und Destruktor sowie je zwei Eigenschaften, um auf die Felder zuzugreifen:
Zitat von
Jelly:
Delphi-Quellcode:
type
TData = class
private
Fi: integer;
Fs: string;
public
constructor Create( i: integer; s: string );
destructor Destroy;
procedure Free;
// write vereinfacht ohne Set-Prozedur
property i: integer read Fi write Fi;
property s: string read Fs write Fs;
end;
Zitat von
Jelly:
Mit TObjectList kannst Du leicht Objekte hinzufügen, löschen usw.
Dann brauchst Du nur noch die Listen zu erzeugen und kannst mit den Standardfunktionen der Listen Add, Remove, Insert, Exchange usw. alles nutzen, was für eine verkettete Liste benötigt wird.
Delphi-Quellcode:
var List1, List2: TObjectList; // <-- !!!
//
List1 := TObjectList.Create;
List2 := TObjectList.Create;
List1.Add(Instanz von TData);
List2.Add(Instanz von TData2);
Es handelt sich programmtechnisch um gleichartige Listen, weil sie jeweils "nur" Zeiger auf Objekte enthalten. Dass in List1 Objekte vom Typ TData enthalten sind und in List2 solche vom Typ TData2, musst Du Dir als Programmierer selbst merken und entsprechend berücksichtigen:
Delphi-Quellcode:
var d1: TData;
...
d1 := (TData)List1.Items[23];
Aber das sollte doch möglich sein.
Ein solches Verfahren über TObjectList ist mit Sicherheit einfacher und praktikabler, als eigene Listen zu definieren und alle Zugriffe von Records (Add, Remove, Insert, Exchange usw.) selbst zu programmieren.
Jürgen