ständiges Typecasting bei Parametern

[Cöster]

Hi!

Ich übergebe Items[I] von einer von TObjectList abgeleiteten Klasse als Parameter an eine selbstgeschriebene Methode. Die Methode erwartet allerdings keinen Parameter vom Typ TObject, sondern vom eigenen Typen namens TItem. Nun muss ich immer, wenn ich Items[I] als Parameter an diese Methode übergebe "as TItem" hinzufügen.

Meine Fragen dazu:

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?

3. Ist das überhaupt ratsam? Geschwindigkeitsfressend?

[mkinzler]

Zitat:

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.

Natürlich

Zitat:

2. Wie macht man das am besten?

Am einfachsten den Getter überladen

Zitat:

3. Ist das überhaupt ratsam? Geschwindigkeitsfressend?

Nein man, sagt dem Compiler ja nur, wie er den Speicherbereich interpretieren soll.

[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.

[Cöster]

Danke, ich werd's nachher oder vll auch erst morgen mal ausprobieren.

Zitat von Elvis:

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.

Interessanter Hinweis! Aber was ist ein explicit-Operator? Was ist der Sinn, Safe Cast zu benutzen, wenn's schlechter ist? Warum ist's safe und das andere hard? OK liegt wahrscheinlich daran, dass ich nicht versteh, was du mit explicit-Operator meinst

[mkinzler]

Ein safe-Cast überprüft, ob die Typen kompatibel sind, ein hard cast nicht.