Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Treeview items

Автор: namra 11.2.2009, 01:50

Здравствуйте, подскажите как проверить есть ли в Treeview -> items (записи) или нет?

Автор: Kbl4AH 11.2.2009, 09:24

Код


  if TreeView1.Items.Count = 0 then
    ShowMessage('Нет')
  else
    ShowMessage('Есть');

Автор: namra 13.2.2009, 00:06

все время выдает что есть хотя treeview пустой

Автор: Kbl4AH 13.2.2009, 00:09

Код напиши, особенно заполнения дерева...

Автор: Poseidon 13.2.2009, 00:34

В дереве может быть узел, но он будет пустым, поэтому создастся впечатление что и дерево пустое. Посмотри в TreeWiev Items Editor есть ли реально узлы.

Автор: namra 13.2.2009, 00:38

При событии Onshow для формы в дерево загружаются записи:
TreeView2.LoadFromFile(GetCurrentDir+'\Tree.txt')
При закрытии должен проверять есть ли записи в treeview (т.е. заполнен он или нет)?

Автор: Kbl4AH 13.2.2009, 00:54

проверил, у меня все работает:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  TreeView1.LoadFromFile(GetCurrentDir+'\Tree.txt')
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if TreeView1.Items.Count = 0 then
    ShowMessage('Нет')
  else
    ShowMessage('Есть - ' + IntToStr(TreeView1.Items.Count));
end;

Если у тебя в дереве не отображено элементов, но проверка говорит, что они есть, значит у тебя в Tree.txt есть непечатаемые символы (пробелы или скорее #13#10)...
Проверь, размер файла равен нулю? Если нет, то проверка будет говорить, что элементы есть... Если да, то - нет...

Автор: namra 13.2.2009, 02:07

Ок! Все работает, ведать где-то я не то писал что-ли. СПС +1