Eine Frage zu Generics in generischen Listen

[jaenicke]

Als erstes fällt mir auf:
Du arbeitest mit Generics, benutzt aber die nicht generische Objektliste mit Casts?!?

Ich glaube du meintest es so in etwa wie im Anhang:

Delphi-Quellcode:

  TListTypeGeneric<TDataObjectType; TListType: TDataTypeGeneric<TDataObjectType>, IDataIO, constructor> = class(TObjectList<TListType>)
...

Benutzung:

Delphi-Quellcode:

var
  Test: TListTypeGeneric<Integer, TIntegerClass>;
begin
  Test := TListTypeGeneric<Integer, TIntegerClass>.Create;
  try
    Test.AddNewElement.Data := 42;
    ShowMessage(Test.Element[0].ToString); // Oder: Test.Items[0].Data.ToString
  finally
    Test.Free;
  end;

// EDIT:
Das geht aber noch schöner. Ich habe beruflich ein ähnliches Problem gehabt und habe schlicht ein generisches Dictionary benutzt, in dem man Behandlungsroutinen registrieren kann. Auf diese Weise brauchte ich in die konkrete Logik bei der generischen Nutzung keinen weiteren Aufwand mehr hineinstecken solange in dem Dictionary für den jeweiligen Datentyp eine Behandlung hinterlegt war.

[Catweasel77]

@jaenicke

Vielen Dank fuer die schnelle Antwort.

Zitat:

Ich glaube du meintest es so in etwa wie im Anhang:

Ja, das sieht schon gut aus. Eine Sache ist aber noch unklar

Warum gibt 'Liste.Element[Index]' direkt den DatenType zurueck und nicht das DatenTyp Objekt.

Zum Beispiel:

Delphi-Quellcode:

type
  TIntegerList = TListTypeGeneric<longint, TIntegerClass>;

var
  Test: TIntegerList;
begin
  Test := TIntegerList.Create;
  try
    Test.AddNewElement.Data := 42;         // AddNewElement liefert TIntegerClass zurueck
    ShowMessage(Test.Element[0].VString);  // Element[0] liefert direkt einen Integer, kein TIntegerClass Objekt
  finally
    Test.Free;
  end;
end;

Die Element propery ist ja deklariert als:

property Element[index: integer]: TDataObjectType read GetElement write SetElement; Die eigene Methode VString waere schon wichtig wenn der DatenType ein record ist. Oder ich einen TColor Wert z.b. als 'Red:125 Green:65 Blue:69' ausdruecken will...

Ich stelle mir das so or das ich mit Liste.Element[Index].Data auf den Wert zugreife und mit VString einen selbstdefinierten String zurueckgebe.
ToString() liefert ja bei booleans '-1'.

Also die Preisfrage : Wieso bekomme ich kein Objekt zurueck? (Und wie doch?)

Waere toll wenn du mir das noch erklaeren koenntest

Im Voraus vielen Dank

Cheers,
Klaus

[jaenicke]

Zitat von Catweasel77:

Ja, das sieht schon gut aus. Eine Sache ist aber noch unklar

Warum gibt 'Liste.Element[Index]' direkt den DatenType zurueck und nicht das DatenTyp Objekt.

Weil es so programmiert ist. Wenn du den Typ selbst gar nicht möchtest, entferne einfach die eigene Eigenschaft Element und benutze nur die vorhandene Eigenschaft Items wie ich es in dem Kommentar auch angedeutet habe.

[Catweasel77]

Zitat:

Wenn du den Typ selbst gar nicht möchtest, entferne einfach die eigene Eigenschaft Element und benutze nur die vorhandene Eigenschaft Items

Ja, irgendwie war ich der Meinung Items[] wuerde mir nur ein TObject zurueckgeben.
Wie gesagt, ist mein erster Gehversuch mit Generics

[Schokohase]

Zitat von Catweasel77:

Zitat:

Wenn du den Typ selbst gar nicht möchtest, entferne einfach die eigene Eigenschaft Element und benutze nur die vorhandene Eigenschaft Items

Ja, irgendwie war ich der Meinung Items[] wuerde mir nur ein TObject zurueckgeben.
Wie gesagt, ist mein erster Gehversuch mit Generics

Die Eigenschaft Items liefert doch ein TObject zurück (geerbt von TObjectList )
Die Eigenschaft Element liefert den generischen Typen zurück (weil du es so programmiert hast)

[Catweasel77]

Zitat:

Die Eigenschaft Items liefert doch ein TObject zurück (geerbt von TObjectList )
Die Eigenschaft Element liefert den generischen Typen zurück (weil du es so programmiert hast)

Njein. Element[Index] hat direkt den (Basis)typ zurueckgegeben. das war ja mein Verstendnisproblem.
Als generische Liste liefert Items[Index] natuerlich ein objekt des generischen Typs.
Ich hatte da noch die Denkweise vom ohne-Generics programmieren, wo eine TObjectList "nur" ein TObject liefert.
So liefert mir Items[] bei einer TBooleanList schon ein TBooleanClass zurueck ohne das ich das erst casten muss.

Kann man eigentlich einen generischen Typ definieren mit einem constructor der den standard Create() von TObject ueberschreibt?
Konstruktoren kann man ja nicht in einem IInterface deklarieren, oder?

[Schokohase]

Wir sprechen doch noch immer über diese Klasse?

Delphi-Quellcode:

type
  TListTypeGeneric<TDataObjectType:TDataTypeGeneric<TDataType>,IDataIO,constructor>=class(TObjectList)
  private
    function GetElement(Index: integer): TDataObjectType;
    procedure SetElement(Index: integer; const Value: TDataObjectType);
  protected
    function GetVString: string;virtual;
  public
    function AddNewElement : TDataObjectType;
    procedure LoadFromStream(AStream:TFileStream);
    procedure SaveToStream(AStream:TFileStream);
    property Element[Index:integer] : TDataObjectType read GetElement write SetElement;
    property VString : string read GetVString;   
  end;

Und da liefert Items ein TObject zurück und Elements den generischen Typ.

[jaenicke]

Zitat von Catweasel77:

Kann man eigentlich einen generischen Typ definieren mit einem constructor der den standard Create() von TObject ueberschreibt?
Konstruktoren kann man ja nicht in einem IInterface deklarieren, oder?

Man muss zur Initialisierung ja keinen Konstruktor nehmen. Im Gegenteil, das hat z.B. den Nachteil, dass man die Intialisierungsdaten schon beim Erstellen des Objekts kennen muss. Zudem werden Exceptions dann anders (oft nicht wie gewollt) behandelt.

Man kann das in den aktuellen Versionen aber auch so lösen. Man muss für den Typ lediglich einen Type Constraint auf eine Vorfahrklasse angeben, die einen passenden Konstruktor hat. Ich würde aber lieber eine Methode Init verwenden.

[Catweasel77]

Zitat:

Wir sprechen doch noch immer über diese Klasse?
Und da liefert Items ein TObject zurück und Elements den generischen Typ.

So hatte ich mir das auch gedacht.
Ich bezog mich auf die Loesung von jaenicke (Dateianhang).