Delphi-Quellcode:
type
TFileEntry = class
private
FFileName: String;
FDataType: TDataType;
public
property FileName: string read FFileName write FFileName;
property DataType: TDataType read FDataType write FDataType;
end;
Jetzt kannst Du beliebig viele Instanzen dieser Klasse erzeugen und einer TObjectList hinzufügen. Wenn deren Eigenschaft OwnsObjects true ist (Standard), musst Du die Objekte nicht einmal mehr selbst freigeben, dann kümmert sich die TObjectList selbst darum.