Eigene Klasse von TObjectDictonary

[psycodad]

Guten Abend allerseits,

Ich probiere mir eine eigene Klasse von TObjectDictionary zu basteln. Das geht ja alles gut unds kompiliert auch. Wenn ich allerdings dann ein Objekt von der Klasse erzeugen möchte, ist beim "Inherited Create( s,0)" im Constructor Schluss mit Lustig. Ich krieg immer ne Fehlermeldung:

Erste Gelegenheit für Exception bei $77401812. Exception-Klasse EInvalidCast mit Meldung 'Ungültige Typumwandlung'. Prozess MyProg.exe (6512)

Code:

type
  TReportCache = class( TObjectDictionary<String,TfrxReport> )
  private
  public
    function GetReportObject( const aReportName: string): TfrxReport;
    procedure DelReportObject( const aReportName: string);
    Constructor Create;
  end;

implementation

{ TReportCache }

constructor TReportCache.Create;
var
  s: TDictionaryOwnerShips;
begin
  s := [doOwnsKeys, doOwnsValues];
  inherited Create( s, 0);
end;

Wenn ich "inherited Create" im Constructor ohne Parameter aufrufe funktionierts, allerdings krieg ich dann üble Speicherlecks weil die Objekte so in der Liste natürlich nicht abgeräumt werden.

Hat mir jemand einen Tipp was ich falsch mache?

[Neutral General]

Kannst du mal Code zeigen wie du das Objekt erstellst/benutzt?

[freimatz]

Hm, meine Vermutung ist das doOwnsKeys. Key ist bei Dir ein String. Das ist kein Objekt, welches das Dictionary freigeben darf.
Sonst wäre es ja schon noch interssant wo denn die Schutzverletzung kommt. Doch wohl nicht in dem Code den du hier zeigst.

[psycodad]

Code:

var
  ReportCache: TReportCache;
begin
 ReportCache := TReportCache.Create();
end;

[psycodad]

Mann mann mann, jepp, das war's. Das ich da nicht selber drauf gekommen bin.

VIELEN DANK.

[Der schöne Günther]

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;

[psycodad]

Zitat:

Zitat von Der schöne Günther (Beitrag 1421448)

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?

[Der schöne Günther]

Ja, es würde reichen. Ich habe mir einfach angewöhnt in Klassendefinitionen die Variablen von den Methoden zu trennen:

Delphi-Quellcode:

TReportCache = class
    private var
        someVariable: Integer;
        someOtherVariable: Integer;
    private
        procedure doStuff();
end;

[MyRealName]

Man braucht doch die Klasse drumherum garnicht, einfach

Code:

ReportCache := TDictionary<String,TFrxReport>.Create;

und dann statt dem

Code:

function GetReportObject( const aReportName: string): TfrxReport;

einfach

Code:

ReportCache.TrygetValue(aReportName, aObj);

aufrufen.

[freimatz]

Weil:

Zitat:

Zitat von Der schöne Günther (Beitrag 1421448)

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

Oder auch Favour_Composition_over_Inheritance_FCoI