К сожалению у стандартного дерева в Firemonkey нет возможность подключить таблицу типа "id, parent, name".
Поэтому приходится извращаться, чтобы заполнить дерево.
Зачем нужен проход по всему дереву? Чтобы найти к чему прикрепить очередной узел, т.е. найти родителя.
т.е. процедура построения дерева такая:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
function TfmTree.BuildTree: boolean;
Var
TreeViewItem, TreeViewItemParent: TTreeViewItem;
begin
// 0 - id, 1- parent, 2 - name
// fmTree.qTree.SQL.Text := 'select id, parent, name from regions order by parent';
if not qTree.Active then qTree.Open;
if qTree.RecordCount <= 0 then exit(false);
qTree.First;
TreeView1.Clear;
TreeView1.BeginUpdate;
try
while not qTree.Eof do
begin
if VarIsNull(qTree.Fields[1].Value) then
begin
AddChild(nil, qTree.Fields[2].Value, qTree.Fields[0].Value, TreeView1);// создаем root (нулевые) TTreeViewItem`ы
end
else
begin
TreeViewItem := ItemByTag(qTree.Fields[1].Value);// ищем родителя, у которого tag = Fields[1]
AddChild(TreeViewItem, qTree.Fields[2].Value, qTree.Fields[0].Value, TreeView1);// добавляем дочерний TTreeViewItem
end;// else
qTree.Next;
end;// while
finally
TreeView1.EndUpdate;
end;
result := True;
end;
проблема с функцией ItemByTag:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
function TfmTree.ItemByTag(id: integer): TTreeViewItem;
var
Item: TTreeViewItem;
I: Integer;
begin
// взял как пример на основе ItemByText из исходников FMX
Result := nil;
for I := 0 to Pred(TreeView1.GlobalCount) do
begin
Item := TreeView1.ItemByGlobalIndex(I);
if Item.Tag = id then
Exit(Item);
end;
end;
из-за того, что само дерево не предоставляет глобального индекса, а ClobalCount - это всего лишь "количество всех видимых элементов дерева (первого уровня и подэлементов) в этом древовидном представлении".
http://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.TreeView.TCustomTreeView.GlobalCount
ну и собственно AddChild
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Function TfmTree.AddChild(parent: TFMXObject; Text: string; key_val: integer; TreeView: TTreeView): TTreeViewItem;
begin
Result := TTreeViewItem.Create(TreeView);
if not assigned(parent) then
Result.parent := TreeView
else
Result.Parent := parent;
Result.Text:= text;
Result.Tag := key_val;
if not assigned(parent) then
OutputDebugString(pwidechar('add: ' + Result.Text))
else
OutputDebugString(pwidechar('add: ' + TTreeViewItem(parent).Text + '.' + Result.Text));
end;
Мне предлагают какого-то монстра (EnumControls), чтобы пройтись по всему дереву:
http://docwiki.embarcadero.com/Libraries/Seattle/en/FMX.Controls.TControl.EnumControls
А как им пользоваться, моих мозгов скилов не хватает, чтобы переложить тамошний пример на мою задачу.
Заранее благодарен за любую помощь.
Может быть кто-то знает, как проще наполнить дерево FMX из таблицы?
Delphi 10.1 (multi-platform app)
