TreeView и ListView

[Scorpeon]

кажись понял, как для простой категории узнать индекс я знаю а если там будет дофига под категорий, и всего такого, что тогда?
Допустим:

производство
цех1
Цех2
Цех3
цех4
Закупка
продажа
работа

как для продажи узнать индекс?

[pu4koff]

Сообщение от Scorpeon

как для продажи узнать индекс?

если програмно, то тупо перебером находишь нужный элемент и узнаешь его AbsoluteIdex, а так просто считаешь сколько элементов над ним находица, такой и индекс

[pu4koff]

можно еще при создании дерева прописывать у элементов какие-нить данные (какой-нить код или еще что).
допустим пр исоздании если написать:

var
  i: pinteger;
begin
  new(i);
  i^ := 10;
  treeview1.Items.Add(nil,'123').Data := i;

то потом на OnChange можно уже смотреть че записано в свойстве data и уже действовать по ситуации:

if inttostr(integer(node.data^)) = 10 then //

[Scorpeon]

pu4koff пасибо большое и еще один вопрос, а вот допустим у мя уже создана категория 123, как уже зделаной присвоить data?

[pu4koff]

Сообщение от Scorpeon

pu4koff пасибо большое и еще один вопрос, а вот допустим у мя уже создана категория 123, как уже зделаной присвоить data?

ну если этот элемент первый, то пишешь:

var
  i: pinteger;
begin
  new(i);
  i^ := 10;
  treeview1.Items.Item[0].Data := i;
end;

ну я хз... мож еще как-то можно... я с этим копонентом вапще не работал )
ну если это не на первом уровне,а дите первого элемента, то:
treeview1.Items.Item[0].Item[0].Data := i;
ну и дальше по такому принципу. При заполнении дерева в общем проще

[Scorpeon]

огромное пасибо, и еще самый последний вопрос, когда у меня допустим ветвь 123 позначена индексом 5, тока как это проверить. тоесть If а дальше что, потому что у мя чет не хочет получаться.
я пишу if treeview1.Items.Item[5].Data then showmessage('получилось'); или там Selected надо?

[pu4koff]

ну тебе данные с чем-то проверить надо:
if integer(treeview1.Items.Item[5].Data^) = 10 then showmessage('получилось');

[Yurek]

[QUOTE=pu4koff;21561]ну например:
в OnChange дерева пишешь:

if (Node.Text = 'Цех1') then //загружаем в ListView что соответствует первому цеху
else if (Node.Text = 'Цех2') then //загружаем в ListView что соответствует второму цеху
...

Пытаюсь выполнить эту процедуру
И нарываюсь на
[Error] Unit1.pas(131): Statement expected, but expression of type 'Boolean' found
Что? Где? Куда? Подскажите

[mihali4]

[QUOTE=Yurek;48051]

Сообщение от pu4koff

ну например:
в OnChange дерева пишешь:

if (Node.Text = 'Цех1') then //загружаем в ListView что соответствует первому цеху
else if (Node.Text = 'Цех2') then //загружаем в ListView что соответствует второму цеху
...

Пытаюсь выполнить эту процедуру
И нарываюсь на
[Error] Unit1.pas(131): Statement expected, but expression of type 'Boolean' found
Что? Где? Куда? Подскажите

Ошибка в синтаксисе. Проверьте написание кода процедуры. Вы что-то пропустили.
Если вы тупо скопировали предложенное, то это - следующие друг за другом операторы THEN ELSE...

[Yurek]

Вот процедура
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if(Node.Text='проап')then ListBox1.Items.LoadFromFile('C:\Док умент.txt')
if else (Node.Text='віпапва') then ListBox1.Items.LoadFromFile('C:\Док умент1.txt');
end;
Компилирую и
[Error] Unit1.pas(131): Missing operator or semicolon
[Error] Unit1.pas(136): Statement expected but end of file found
Подскажите где ошибка. Будьте добры.