Hallo, ich hab ein TVirtualTree, in dem am Ende daten stehen. Ein Node ist entweder Knoten, oder ein DatenKnoten.
Wenn ich einen Node focusiere sollen ALLE unter nodes nach daten durchsucht werden, und diese datren dann in den STringGrid eintragen. Um zu erkennen ob es Daten sind hab ich ein Boolean "Daten" eingefügt. Hier mein ansatz, leider funktioniert der nicht wirklich, ich finde den fehler aber auch nicht... Wäre schön wenn mir jemand helfen könnte.
Delphi-Quellcode:
type
PNode = ^TNode;
TNode = record
Text : String;
Kosten : String;
Datum : String;
ID: LongInt;
Kauf : Boolean;
daten : Boolean;
end;
procedure TFHaushaltsuebersicht.UpdateUebersicht(Node: PVirtualNode);
var
data : PNode;
a : TAusgabe;
t : PVirtualNode;
zeile, i : longInt;
begin
data := tree.GetNodeData(node);
if data^.Daten then
begin
a := ausgaben[data^.id];
zeile := sgUebersicht.RowCount -1;
sgUebersicht.Cells[0, zeile]:= DateToStr(a.Datum);
sgUebersicht.Cells[1, zeile]:= a.ArtikelBezeichnung;
sgUebersicht.Cells[2, zeile]:= a.Kategorie;
sgUebersicht.Cells[3, zeile] := FloatTOStr(a.Preis);
sgUebersicht.RowCount := sgUebersicht.RowCount +1;
end
else
begin
if tree.HasChildren[node] then
begin
t := tree.GetFirstChild(node);
UpdateUebersicht(t);
for i := 1 to node.ChildCount - 1 do
begin
t := tree.GetNext(t);
UpdateUebersicht(t);
end;
end;
end;
end;
Gruss Thorben