Zitat von
Cöster:
1. Ist es möglich, dass der Rückgabewert von Items[I] nicht TObject sondern TItem immer ist? Denn die von TObjectList abgeleitete Klasse soll sowieso nur Objekte vom Typen TItem verwalten.
2. Wie macht man das am besten?
Mak aus den Fingern gesaugt:
Delphi-Quellcode:
type
TSomeItemList = class(TObjectList)
private
function getItem(aIndex : Integer) : TSomeItem;
procedure setItem(aIndex : Integer; aValue : TSomeItem);
public
property Item[aIndex : Integer] : TSomeItem
read getItem(aIndex : Integer) : TSomeItem;
write setItem(aIndex : Integer; aValue : TSomeItem);
end;
function TSomeItemList.getItem(aIndex : Integer) : TSomeItem;
begin
result := inherited Item[aIndex] as TSomeItem;
end;
procedure TSomeItemList.setItem(aIndex : Integer; aValue : TSomeItem);
begin
inherited Item[aIndex] := aValue;
end;
Einfach weiterhin eine TObjectList, nur diesmal mit einem typisierten Indexer.
3. Ist das überhaupt ratsam? Geschwindigkeitsfressend?
Ein Hard cast "TSomeItem(someValue)" kostet gar nix, außer der explicit-Operator wurde überschrieben.
Ein safe cast "(someValue as TSomeItem)" enthält eine Typenprüfung und kostet somit etwas. Aber es kostet nur minimal.