Показать сообщение отдельно
  #11  
Старый 31.07.2013, 16:16
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

У treeview собственная индексация возникает, в результате дерево строится неправильно, вот


код
Код:
TreeView1.Items.Clear;
  TreeView1.Items.AddChild(nil, 'root');
  dm.ADOQuery1.SQL.Text:='select id, surname, boss from asyp.stryktyra';
  try
    dm.ADOQuery1.Open;
  except
  end;
  dm.ADOQuery1.First;
  while not dm.ADOQuery1.Eof do
  begin
    TreeView1.Items.AddChild(TreeView1.items[dm.ADOQuery1.FieldByName('boss').AsInteger], dm.ADOQuery1.FieldByName('surname').AsString);
    dm.ADOQuery1.Next;
  end;

или я что-то не так понял?
__________________
Я за здоровый экстрим!
Спасибо за "спасибо")