Vererbung und generische Listen

[TiGü]

Zitat von freimatz:

Zum ersten: Welche Delphi-Version verwendest Du?

Zitat von hschmid67:

Delphi-Version: 5

Die hat noch keine Generics.

Das ist die Standardeinstellung des Forums. Dafür kann der Ersteller nichts (außer das er das Feld aktualisiert, aber das passiert echt jeden).
Achte mal auf seine verwendete Delphiversion links unter seinen Accountnamen.

[hschmid67]

Leider habe ich erst heute wieder Zeit, ein entsprechendes Beispiel zusammenzustellen - vielen Dank Euch schon mal fürs Mitlesen und -denken!

Delphi-Quellcode:

unit form_main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  System.Generics.Collections;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  TDummy = class
  private
    Fcaption: string;
  public
    constructor Create(mValue: string);
    property caption: string read Fcaption write Fcaption;
  end;

  TDummyList = class(TObjectList<TDummy>)
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  System.Contnrs;

{ TDummy }

constructor TDummy.Create(mValue: string);
begin
  inherited Create;
  Fcaption := mValue;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  lList: TObject;  // klar könnte ich in diesem sehr einfachen Beispiel hier TDummyList als Typ angeben
  lCaption: string;
begin
  lList := TDummyList.Create;
  try
    TDummyList(lList).Add(TDummy.Create('hallo'));
    TDummyList(lList).Add(TDummy.Create('welt'));

// hier funktioniert die Zuweisung leider nicht und ich bekomme eine Zugriffsverletzung
    lCaption := TDummy(TObjectList(lList)[0]).Caption;
// so würde es funktionieren
    lCaption := TDummy(TObjectList<Tdummy>(lList)[0]).Caption;
    lCaption := TObjectList<Tdummy>(lList)[0].Caption;
    lCaption := TDummy(TDummyList(lList)[0]).Caption;
// es geht sogar so - und das könnte als Lösung für mich fast reichen - mal sehen
    lCaption := TDummy(TObjectList<Tobject>(lList)[0]).Caption;

    Memo1.Lines.Add(lCaption);
  finally
    lList.Free;
  end;
end;

end.

Das wäre mal der Code mit der Zeile, die leider nicht funktioniert. Kann mir jemand erklären, warum es nicht geht?

Die entsprechend markierte Zeile könnte tatsächlich für meine Zwecke reichen. Aber ich verstehe nicht ganz, warum das mit der generischen Liste funktioniert, mit der einfachen TObjectList aber nicht. TObjectList<T> ist doch von TObjectList abgeleitet, oder? Und dann müsste ich doch mit TObjectList[0] auf das erste Element zugreifen können???

Viele Grüße
Harald

[SProske]

Zitat von hschmid67:

TObjectList<T> ist doch von TObjectList abgeleitet, oder?

Nein

Delphi-Quellcode:

TObjectList<T: class> = class(TList<T>)
TList<T> = class(TEnumerable<T>)
TEnumerable<T> = class abstract

[hschmid67]

Oh! Ich dachte, ich hätte das vor einer Woche im Quellcode mal nachgesehen - aber mich da wohl vertan. Danke für den Hinweis. Dann macht es ja auch Sinn, dass es so nicht funktioniert.

Seltsam dabei ist aber, dass ich, wenn ich auf TObjectList caste, bei

TObjectList(lList).Count ein sinnvolles Ergebnis bekomme...

Aber Danke, das sollte mir nun schon ein wenig weiterhelfen.

Ach ja, und wegen des Designs, da verstehe ich Eure Vorbehalte schon. Aber ich möchte gerne in einer Elternklasse sowas schreiben wie eine Funktion "AsObject" oder "AsArray" und das dann für die Objekte, die die Kinder erzeugt haben einführen. Das Endprodukt sollte sowas sein, wie ein FluentInterface der Art

Delphi-Quellcode:

Einzelnes JsonObject := CreateIrgendeineObjektList.FiltereDieListe.AsObject.AsJson; // nur das erste gefundene
JsonArray := CreateIrgendeineObjektList.FiltereDieListe.AsArray.AsJson;

Und da würde ich die Funktionen AsArray, AsObject, AsJson gerne für alle denkbaren Objekte gestalten. Daher die Casts.

Viele Grüße
Harald

[haentschman]

Moin...
Der Cast der TObjectList ist unnötig.

Delphi-Quellcode:

// so würde es funktionieren
  lCaption := TDummy(TObjectList<Tdummy>(lList)[0]).Caption; // ja, aber schlecht
...
// so auch. 
type
TDummyList = class(TObjectList<TDummy>);
...
lList := TDummyList.Create;
lList.Add(TDummy.Create('hallo'));
...
lCaption := lList[0].Caption;

...besser Mit den Generics ist das casten eher Geschichte.

[hschmid67]

Hallo haentschman,

das funktioniert doch nur, wenn lList auch als TDummyList deklariert ist und nicht, wie ich es brauche als Tobject, oder?

Ich weiß ja leider nicht im Voraus, welche Art von generischer Liste in lList drin steckt (siehe die ersten Posts).

Viele Grüße
Harald

[Fritzew]

Delphi-Quellcode:

 
// hier funktioniert die Zuweisung leider nicht und ich bekomme eine Zugriffsverletzung
 lCaption := TDummy(TObjectList(lList)[0]).Caption;
// so würde es funktionieren
    lCaption := TDummy(TObjectList<Tdummy>(lList)[0]).Caption;

Das ist auch absolut korrekt so,

TObjectlist und TObjectlist<T> sind 2 komplett unterschiedliche Klassen.

Aber an Deiner Stelle würde ich das Design nochmals überdenken. Eine grosse Stärke von Delphi ist die Typsicherheit.
Genau das hebelst Du aus mit Deinen Casts.
Das funktioniert zwar "irgendwie", aber auf Dauer fällst Du damit auf die Nase. (Meiner Meinung nach).