VirtualTreeView - Knoten abarbeiten

[oghma]

Hallo!

Nachdem ich dank der Hilfe dieses Forums (http://www.delphipraxis.net/viewtopi...=765269#765269) einen Treeview gefüllt habe, würde ich ihn jetzt gern abarbeiten. Sollte ja recht einfach gehen mit getFirst, getFirstChild und getNext.

Jetzt hab ich

Delphi-Quellcode:

var
  node : PVirtualNode;
  Data: PTreeData;
begin
  node := vst.getfirst;
  data := vst.getnodedata(node);

und hier bleibt er schon hängen, weil "OleVariant" und "Pointer" inkompatibel sind.

In meiner AddVSTStructure-Funktion klappt das aber:

Delphi-Quellcode:

function TfUebersicht.AddVSTStructure(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
  ARecord: TTreeData): PVirtualNode;
var
  Data: PTreeData;
begin
  Result:=AVST.AddChild(ANode);
  Data:=AVST.GetNodeData(Result);

getFirst und AddChild liefern doch beide PVirtualNodes zurück.
Data ist in beiden Funktionen von Typ PTreeData (=^TTreeData).

Warum gehts in dem einen Fall und in dem anderen nicht?

Danke,
Oghma