Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Auf Elemente von TList zugreifen (https://www.delphipraxis.net/34388-auf-elemente-von-tlist-zugreifen.html)

Blackthorne 22. Nov 2004 13:09


Auf Elemente von TList zugreifen
 
ich hab jetzt zwar schon die Suchfunktion bemüht,
nur leider nichts gefunden was mir weiterhilft. :(

Deshalb meine Frage:

Wenn ich in eine TList Als Element wiederum TList aufnehme,
wie bekomme dann Zugriff auf die Elemente der TList, die von der anderen aufgenommen wurde...?

Beispiel:

Liste, die die andere aufnimmt:
Code:
TQueryDataList = class(TList)
   public
      destructor Destroy; override;
      // Zum Löschen der Liste und der enthaltenen Objekte
      procedure Clear; override;
      // Wird überladen, um TObject anstelle von Pointer zu verwenden
      procedure Add(item: TQueryData);
   end;
Liste, die aufgenommen wird.
Code:
TQueryData = class(TObject)
   public
      FQuestion  : String;
      FAnswer    : Array[kAnswersA..kAnswersC] of String;
      FCorrect   : Integer;
      FBmpID     : Integer;
      FAnswered  : Integer;
      //
      constructor Create;
   end;
Und ich möchte nun natürlich über die "TQueryDataList" auf die Elemente von "TQueryData" zugreifen, also beispielweise: "FAnswered"

Mfg,
Blackthorne

Dax 22. Nov 2004 13:15

Re: Auf Elemente von TList zugreifen
 
Das machst du mit Typecasts:
Delphi-Quellcode:
TQueryData(QueryDataList.Items[Index]).FAnswered

Blackthorne 22. Nov 2004 13:36

Re: Auf Elemente von TList zugreifen
 
@Dax: Thx, der Tipp mit dem Typecast hat mein Problem gelöst :)

shmia 22. Nov 2004 13:44

Re: Auf Elemente von TList zugreifen
 
Du solltest von TObjectList anstelle von TList ableiten, da TQueryData schon ein Objekt ist.


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:31 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz