Generics Verständnisproblem

[jaenicke]

Zitat von mirage228:

Vererbung geht aber mit Records halt nicht. Und da der VirtualTreeView nun mal damit arbeitest, wird es so nicht gehen.

Wie kommst du darauf? Ich arbeite da mit Klassen. In den Datenpointer kommt ein Pointer auf die Klassenreferenz und damit hat sich das.

Delphi-Quellcode:

var
  CurrentNodeData: PMyClass;
begin
  CurrentNodeData := PMyClass(Sender.GetNodeData(Node));

Oder:

Delphi-Quellcode:

var
  CurrentNodeData: TMyClass;
begin
  CurrentNodeData := TMyClass(Sender.GetNodeData(Node)^);

So ca. mache ich das immer.

[mirage228]

Oh ja, stimmt, Du hast Recht, daran hatte ich gar nicht gedacht . Wenn man es so macht, geht es wie oben genannt mit den Generics. Einfach einen gemeinsamen Vorfahren definieren, der AnalysisScore bereitstellt (oder halt ein Interface)...

[himitsu]

Im Falle von Objekten geht dann auch type TFrequencyPostAnalysis<T: object> = class ,
womit man einmal sicherstellt, daß der generische Typ immer ein Objekt ist
und man hat dann auch auf die Grundfunktionen aller Objekte zugriff, wie z.B. Data.Free; und Data is TMyClass .


Praktischer wäre es ja, wen VTV mal mit Generics aufgemotzt würde.

[Stevie]

Zitat von himitsu:

Praktischer wäre es ja, wen VTV mal mit Generics aufgemotzt würde.

Schau mal in den Contributions Ordner im SVN...

[nuclearping]

Danke für eure Tipps!

Zitat von himitsu:

Data: ^T; und T=TListsDataRecord könnte gehn


PS: Bei sowas wie Data^.AnalysisScore könnte man das ^ weglassen, da Delphi bei einem Zeigertypen, gefolgt von einem Punkt, implizit auch eine Dereferenzierung vornehmen würde.
Macht sich z.B. gut, wenn man doch irgendwann mal von einem Record auf ein Datenobjekt umsteigen möchte.

Stimmt, mit ^T gehts direkt. Aber das ^ kann ich leider nicht weglassen, weil Delphi dann meckert: Record, Objekt oder Klassentyp erforderlich.

Zitat von jaenicke:

Zitat von mirage228:

Vererbung geht aber mit Records halt nicht. Und da der VirtualTreeView nun mal damit arbeitest, wird es so nicht gehen.

Wie kommst du darauf? Ich arbeite da mit Klassen. In den Datenpointer kommt ein Pointer auf die Klassenreferenz und damit hat sich das.

Delphi-Quellcode:

var
  CurrentNodeData: PMyClass;
begin
  CurrentNodeData := PMyClass(Sender.GetNodeData(Node));

Oder:

Delphi-Quellcode:

var
  CurrentNodeData: TMyClass;
begin
  CurrentNodeData := TMyClass(Sender.GetNodeData(Node)^);

So ca. mache ich das immer.

Zitat von mirage228:

Oh ja, stimmt, Du hast Recht, daran hatte ich gar nicht gedacht . Wenn man es so macht, geht es wie oben genannt mit den Generics. Einfach einen gemeinsamen Vorfahren definieren, der AnalysisScore bereitstellt (oder halt ein Interface)...

Beisst sich das dann aber nicht mit der NodeDataSize vom VTV?

Edit: Zum besseren Verständnis, PListsDataRecord und PFrequencyItem werden ja durch den ganzen restlichen Code hinweg für die Datenverwaltung der jeweiligen Bäume genutzt und enthalten verschiedene unterschiedliche Felder. Wenn ich also zB eine PMyClass anlege, die nur die für die Funktion gemeinsam benötigten Felder beinhaltet, liefert der VTV bei GetNodeData ja "Müll", wenn die Struktur des Zielrecords (und damit auch die SizeOf) von der NodeDataSize des jeweiligen Trees abweicht. Oder soll dann PMyClass die "alten" Records ersetzen?

[jaenicke]

Zitat von nuclearping:

Beisst sich das dann aber nicht mit der NodeDataSize vom VTV?

Nein, die ist 4 Byte (bei 32-Bit Delphi) groß, nämlich SizeOf(TYourClass). Denn es wird ja der Referenzpointer auf das Objekt gespeichert. Und der ist (eben anders als ein Record, wenn du den komplett in die Userdaten des Nodes legst ) immer gleich groß, nämlich so groß wie ein Pointer.

[himitsu]

Zitat:

Aber das ^ kann ich leider nicht weglassen,

Schonwieder was kaputt gemacht?
Man soll sich eben doch nicht an liebgewonnene Gewohnheiten gewöhnen.