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