[thxu2]

Код:

procedure TForm1.FormActivate(Sender: TObject);
var
  NodeDetails: PNodeDetails;
  TreeViewIndex: LongInt;
begin
  adoquery1.Open;
  while not adoquery1.Eof do
    begin
      New(NodeDetails);
      NodeDetails^.Id:=       adoquery1.FieldByName('Id').AsInteger;
      NodeDetails^.ParentId:= adoquery1.FieldByName('id_parent').AsInteger;
      NodeDetails^.Name:=     adoquery1.FieldByName('Class_name').AsString;
    
      adoquery1.Next;
    end;
 adoquery1.Close;
end;

end.

Админ: Пользуемся тегами для оформления кода!

Допустим я так записал в рекорд данные. Они где-то хранятся ???как мне пройтись по ним чтобы построить дерево???????