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
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?