TTreeNode um eine weitere Variable erweitern

[Waldteufel]

Hi.

Zitat:

Zitat von Nogge

Diese Variable habe ich bereits in Benutzung (Hätte ich vllt schon vorher sagen sollen^^)

Da TTreeNode.Data ein Pointer ist, würde ich empfehlen, dort einfach einen Pointer auf einen Record abzulegen.

[Nogge]

Genial !! Das ist natürlich die perfekte Lösung. Viele Dank, Waldteufel.

[barf00s]

"Diese Variable habe ich bereits in Benutzung (Hätte ich vllt schon vorher sagen sollen^^)"

hatten wir das nich gestern schon, sachma? :gruebel:

[sakura]

Zitat:

Zitat von Nogge

Genial !! Das ist natürlich die perfekte Lösung. Viele Dank, Waldteufel.

Vergiss aber nicht die Pointer wieder freizugeben, wenn die Node gelöscht wird, ansonsten hast Du einen echten Speicherfressen. Das Event müsste OnDeletion oder ähnlich heißen ;)

...:cat:...

[Nogge]

mmh, ich glaube, ich habe denn einen echten Speicherfresser^^ Wie gebe ich den Pointer Node.Data wieder frei?

[barf00s]

in der regel referenziert man mit Data nur irgendwas anderes ...

also reicht ein Data := nil; IN DER REGEL - was also auch bei dir der fall sein wird

[Nogge]

Ich benötige kein zusätzliches

Delphi-Quellcode:

Dispose(Node.Data)

?

[barf00s]

kommt drauf an WIE du .Data verwendest...

wenn dus nur mit

xNode.Data := xObj;

benützt, dann free'e das xObj und nil'e .Data

...

[sakura]

Zitat:

Zitat von Nogge

Ich benötige kein zusätzliches

Delphi-Quellcode:

Dispose(Node.Data)

?

Hast Du noch an anderer Stelle eine Referenz auf die Daten? Dann eher nicht, wenn Node.Data aber die einzige ist, dann musst Du es im OnDeletion Event auch wieder freigeben :zwinker:

...:cat:...

[Nogge]

Ich benutze Node.Data so:

Delphi-Quellcode:

type
  TGroupData = record
    GroupID      : Word;
    ShouldExpand : Boolean;
  end;
  PGroupData = ^TGroupData;

{...}

New(GroupData);
try
  GroupData.GroupID:=GroupID;
  GroupData.ShouldExpand:=StrToBool(Copy(s,Index+1,Length(s)-Index));
  GroupNode.Data:=GroupData;
finally
  Dispose(GroupData);
end;