Vererbung und generische Listen

[hschmid67]

Hallo Zusammen,

ich versuche schon seit Stunden / Tagen etwas zum Laufen zu bringen, aber es gelingt mir nicht. Vielleicht habt Ihr mir einen Hinweis?

Ich habe in einer Basisklasse eine generische Liste gespeichert und schaffe es nicht, in einer Methode der Basisklasse auf die Elemente der Liste zuzugreifen:

Delphi-Quellcode:

TBaseClass = class
  FObject : TObject;  // hier kann sowohl ein <T> als auch ein TObjectList<T> vorkommen
  procedure Print;
end;

procedure TBaseClass.Print;
begin
  writeln(FObject.Classname);
end;

Soweit funktioniert das auch ganz gut. Ich bekomme als Ausgabe entweder

'TObjectList<kdb_classes.TkdbUserClass>'
oder
'kdb_classes.TkdbUserClass'

Warum aber kann ich nicht auf das erste Element der ObjektListe zugreifen? Alle Versuche mit Casts schlagen fehl:

Bei

Delphi-Quellcode:

writeln(TObjectList<kdb_classes.TkdbUserClass>(FObject).classname);

bekomme ich die Meldung

Inkompatible Typen.

Bei

Delphi-Quellcode:

writeln(TObjectList<kdb_classes.TkdbUserClass>(FObject)[0].Classname);

ebenso. Wie kann ich auf die Elemente aus der Liste zugreifen?

Delphi-Quellcode:

TObjectList(FObject).Count

funktioniert z.B. und gibt den entsprechenden Wert zurück.

Was ich eigentlich will: Ich möchte das erste Element der Liste, wenn es denn eine Liste ist (das kann ich prüfen über den Classname).

Was mache ich falsch? Wo ist mein Denkfehler?

Vielen Dank schon mal für's Mitdenken
Harald

[Zacherl]

Über den Sinn des Klassendesigns kann man vermutlich streiten, aber habe das mal bei mir nachgestellt und kann ohne Probleme casten. Ein Hard-cast sollte eigentlich sowieso fast nie fehlschlagen. Zeig mal noch bisschen mehr Code.

[hschmid67]

Hmm, ja, das mit dem Klassendesign ist so wohl nicht verständlich (und vielleicht auch diskussionswürdig).

Also noch ein wenig mehr Erklärung:

Ich möchte mit TMS Aurelius meine DB-Tabellen zugreifbar machen (über REST, aber das spielt beim eigentlichen Problem wohl keine Rolle). Dazu gibt es eine Basisklasse, die die Grundfunktionen zur Verfügung stellt, also vor allem eine Funktion, um die Ergebnisse von Suchen in verschiedenen Formen auszugeben (z.B. als json, als Objekt, als Liste...).

Nun gibt es FObject in der Basisklasse, was sowohl ein direktes Objekt beinhalten kann, als auch ein Array, bzw. eine Objektliste, je nach dem, ob es nur einen Treffer in der DB bei der Suche gibt, oder eben mehrere. Aurelius liefert hier zweierlei als Ergebniss:

Fobject -> TeinTabellenObjekt

oder

Fobject -> TObjectList<TeinTabellenObject>

Nun möchte ich in meiner Basisclasse gerne zwei Funktionen einbauen, die das Fobject entwerder als Object oder als ObjectList ausgibt:

Delphi-Quellcode:

TBaseClass = class
  Fobject: Tobject;
  function AsObject: TeinTabellenObjekt
  function AsList: TObjectList<TeinTabellenObjekt>;
end;

TSpecialClass<T: class> = class(TBaseClass)
  procedure SucheIrgendwas;
end;

procedure TSpecialClass<T>.SucheIrgendwas;
begin
  Fobject := Manager.Find<T>(123);  // Ergebnis ist vom Typ T
oder
  Fobject := Manager.Find<T>.Add(Linq['lastname'] = 'xyz').List;  // Ergebnis ist vom Typ TObjectList<T>
end;

Dazu müsste ich in AsObject, wenn Fobject eine Liste ist, das erste Element der Liste ausgeben. Nun ist die Basisklasse aber noch nicht generisch und die Funktion soll ja für alle Objekte funktionieren.

Also in etwa so:

Delphi-Quellcode:

function TBaseClass.AsObject: TeinTabellenObjekt;
begin
  Result := Fobject;
  if IsObjectList(Fobject) then
    Result := TObjectList(Fobject)[0];
end;

So hatte ich es mir vorgestellt. Funktioniert aber leider nicht...

Am liebsten hätte ich in AsObject ja noch den Typ mit dabei, aber es würde mir schon reichen, wenn ich ein Tobject aus der Liste bekäme.

Viele Grüße
Harald

[freimatz]

Zum ersten: Welche Delphi-Version verwendest Du?

Zitat:

Zitat von hschmid67 (Beitrag 1385274)

Delphi-Version: 5

Die hat noch keine Generics.

Dann, bitte mach doch deinen Code einfacher.
Splitte die langen Zeilen in mehrere Zeilen auf.
Mach eine einzelne einfache unit die das Problem zeigt (und sonst nichts)

[TiGü]

Zitat:

Zitat von freimatz (Beitrag 1385485)

Zum ersten: Welche Delphi-Version verwendest Du?

Zitat:

Zitat von hschmid67 (Beitrag 1385274)

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:

Zitat von hschmid67 (Beitrag 1386129)

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

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

[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

Delphi-Quellcode:

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...:P
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 :thumb: Mit den Generics ist das casten eher Geschichte.