Doppeltes Dispose Problem

[WorstNightmare]

Hallo,

ich habe ein Problem beim Freigeben von Pointern:
Ich speichere Pointer auf Records (PQuestRewardInfo) in einer Liste, allerdings können diese auch öfters in den verschiedenen Listen (Rew)s von FJobRewards vorkommen (selber Inhalt, ich wollte sie dann nicht doppelt anlegen) und es gibt eine Ungültige Zeigeroperation wenn man sie doppelt freigeben will.

Daher habe ich noch ein Dictionary (FreeList) angelegt, in dem ich die Speicheradressen und den Zustand speichere. Mache ich das OrSetValue beim Hinzufügen weg, zeigt er mir auch an, dass Duplikate vorhanden sind, aber beim Disposen knallt es dann trotzdem :cry:

Hier mein Code:

Delphi-Quellcode:

destructor TQuestRewards.Destroy;
var
  PQRI: PQuestRewardInfo;
  Rew: TList<PQuestRewardInfo>;
  FreeList: TDictionary<Cardinal, Boolean>;
begin
  for PQRI in FRewards do
    Dispose(PQRI);
  FreeAndNil(FRewards);

  FreeList := TDictionary<Cardinal, Boolean>.Create;
  for Rew in FJobRewards.Values do
    for PQRI in Rew do
      FreeList.AddOrSetValue(Cardinal(PQRI), False);

  for Rew in FJobRewards.Values do
  begin
    for PQRI in Rew do
      if not FreeList[Cardinal(PQRI)] then
      begin
        Dispose(PQRI);
        FreeList[Cardinal(PQRI)] := True;  // Freigegeben setzen
      end;

    Rew.Free;
  end;
  FreeAndNil(FJobRewards);

  FreeList.Free;

  inherited;
end;

Weiß jemand wie ich es noch anders machen könnte?

[Uwe Raabe]

Mach dir doch einfach eine Owner-Liste, die alle Pointer speichert. Am Ende, wenn alle anderen Listen, in denen die Pointer verwendet werden können, leer sind, kannst du dann nach deiner Owner-Liste alle Pointer freigeben.

Ist ähnlich wie bei Objekten: eine TObjectList mit OwnsObjects := true, alle anderen mit false.

[WorstNightmare]

Gute Idee, so habe ich es nun gemacht.
Danke für die Hilfe :)