Verwalten von Objekten in einer Container-Klasse

[bernau]

Zitat von Luckie:

Aber hier:

Delphi-Quellcode:

procedure TContactList.Delete(Index: Integer);
begin
  // destroy object
  FInnerList.Items[Index].Free;
  FInnerList.Items[Index] := nil;
  // delete object from the list
  FInnerList.Delete(Index);
end;

sagt er mir in Zeile 4:

Zitat:

[Error] AddressBookCls.pas(106): Record, object or class type required

Er kennt also das Free nicht. Warum das nicht?

TList.Items hat als Ergebnis den Type Pointer. Dort gibt's kein free.

Mach ein Typecasting

TObject(FInnerList.Items[Index]).Free;
Gerd