Ungültige Zeigeroperation

[haentschman]

Moin...
Sieht unspektulär aus... Kein Free für eine TCallInstance?

Versuche mal das:

Delphi-Quellcode:

procedure Tbc_AsteriskCallDictionaryDataModule.DataModuleCreate(Sender: TObject);
begin
  inherited;

  fCallInstanceDictionary := TCallInstanceDictionary.Create([doOwnsValues]); // die Values werden von der Liste freigeben
end;

procedure Tbc_AsteriskCallDictionaryDataModule.DataModuleDestroy(Sender: TObject);
begin
  inherited;
//  fCallInstanceDictionary.Clear; // vor dem Free brauchst du das nicht
  fCallInstanceDictionary.Free;
end;