Einzelnen Beitrag anzeigen

Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.016 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#6

AW: Generics / Typenkompatibilität?

  Alt 28. Nov 2014, 15:03
In Spring4D haben wir dafür IObjectList, was von einer TObjectList<T> implementiert wird.
Für einen Lesezugriff ist das sicher, aber nicht für schreibende Zugriffe (siehe Beispiele in meinem Blogpost, der bereits verlinkt wurde).

Was du in deinem Fall aber machen kannst, ist von der Contnrs.TObjectList einen generischen Wrapper abzuleiten, wodurch du einmal Zuweisungskompatibilität zu TObjectList behälst aber trotzdem typensicher bist, indem du da nix reinpacken kannst, was nicht rein darf und das, was du raus holst, gleich typisiert ist.

Delphi-Quellcode:
type
  TMyObjectList<T:class> = class(TObjectList)
  private
    function GetItem(Index: Integer): T;
    procedure SetItem(Index: Integer; Value: T);
  public
    property Items[Index: Integer]: T read GetItem write SetItem; default;
  end;

function TMyObjectList<T>.GetItem(Index: Integer): T;
begin
  Result := List[Index];
end;

procedure TMyObjectList<T>.SetItem(Index: Integer; Value: T);
begin
  TObject(List[Index]) := Value;
end;
Das Implementieren der anderen Methoden wie Add überlass dir als Übung

Man kann übrigens, wenn es um reinen Lesezugriff geht, eine TObjectList<T> (wo T eine Klasse ist) auf TObjectList casten, da die ersten beiden Felder (das backing Array und der Count) binär kompatibel sind. Aber das würde ich ohne Umschweife als riesengroßen Hack bezeichnen, für den du in die Hölle kommst
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight

Geändert von Stevie (28. Nov 2014 um 15:20 Uhr)
  Mit Zitat antworten Zitat