Hello
You can use similar code to run through all the elements of the tree:
Code:
procedure TForm1.Button4Click(Sender: TObject);
var
i: Integer;
RecView: TMemRecViewEh;
s: String;
begin
//MemTableEh1.TreeList.
for i := 0 to MemTableEh1.RecordsView.MemoryTreeList.AccountableCount-1 do
begin
RecView := MemTableEh1.RecordsView.MemoryTreeList.AccountableItem[i];
s := 'ID = ' + VarToStr(RecView.Rec.DataValues['ID', dvvValueEh]);
s := s + ' Status = ' + BoolToStr(RecView.NodeExpanded, True);
DBMemoEh1.Lines.Add(s);
end;
end;
Use MemTableEh1.RecordsView.MemoryTreeList.AccountableItem property to access elements in the tree.
Use RecView.NodeExpanded property to get or set Expanded status.
Use RecView.Rec.DataValues properties to access record values.