Tipp: Soweit du keinen wirklich guten Grund hast tust dir keinen Gefallen mit der Vererbung. Nimm stattdessen ein TObjectDictionary<String,TfrxReport> und benutze es.
https://de.wikipedia.org/wiki/Kompos..._von_Vererbung
Delphi-Quellcode:
TReportCache = class
private var
dictionary: TObjectDictionary<String, TFrxReport>;
public
function GetReportObject( const aReportName: string): TfrxReport;
procedure DelReportObject( const aReportName: string);
Constructor Create();
end;
Danke für den Tipp. Werde es in Zukunft mit Kompositon machen, sehr einleuchtend. Eine kleine Frage noch zu deinem Beispiel: Wieso machst du ein private
var? Würde nicht ein private alleine reichen?