ständiges Typecasting bei Parametern

[Elvis]

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.