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