Ja ist blöd formuliert aber mir fällt nichts besseres ein.
Es geht darum das ich eine von TList abgeleitete Basisklasse habe, die Dateiinformationen aus TSearchrecord verwaltet. Nun möchte ich noch weitere Informationen, z.B. Prüfsummen dazu packen. als record sieht das ganz einfach aus, aber wie kann ich das "sauber" über Vererbung lösen?
Delphi-Quellcode:
tMyrecord = record
Name:string;
Pfad:string;
Size:LongWord;
end;
tMyrecord2 = record
Base:TMyrecord;
PSa:Tpsa;
PSb:TPSb;
end;
TmyList1= class (Tlist)
protected
function Get(Index: Integer): t_Myrecord;
......
end;
TmyList2= class (tmyList1)
function Get(Index: Integer): ?????????
end;
Generics sind keine Möglichkeit, da ich max. D2006 zur Verfügung habe.
Gruß
K-H