TreeView и ListView

[bablzz]

Люди, помогите сделать след. вещь)
есть форма с тривью, там у меня будут данные(корень-название страны, подкорень-субьект,и ниже по уровню площадь этого субьекта)
А как сделать, чтобы при выделении корня в ListView выводилось тоже самое, то есть caption получит название страны, а subitems субъект и территория. помогите, пожалуйста, или хоть поверните в сторону вернного пути
заранее спасибо

[Аватар]

в TreeView есть обработчик OnChange. В нем анализируй тип Node и очищай и по-новой заполняй ListView

[bablzz]

ну я вот написал такую штуку, но когда клацаю на корень(юез поддерева) вылетает что invalid index

if (Node=tv1.Items.Item[0]) then begin
  lv1.Items.BeginUpdate;
  with lv1.Items.Add do
  begin
    i:=1;
    Caption:=tv1.Items.Item[0].Text;
    SubItems.Add(tv1.Items.Item[i].Text);
    SubItems.Add(tv1.Items.Item[i+1].Text);
  end;
  lv1.Items.EndUpdate;
  end;

Как сделать то правильно? а то при выборе следующего корня, в ListView вообще ничего не показывает, только предыдущие значения

[Аватар]

procedure TForm1.tv1Change(Sender: TObject; Node: TTreeNode);
var xNode: TTreeNode;
begin
  xNode:=Node;
  if xNode.Parent<>nil then xNode:=xNode.Parent;
  if xNode.Parent<>nil then xNode:=xNode.Parent;
  lv1.Items.BeginUpdate;
  lv1.Items.Clear;
  with lv1.Items.Add do begin
    Caption:=xNode.Text;
    SubItems.Add(xNode.Item[0].Text);
    SubItems.Add(xNode.Item[0].Item[0].Text);
  end;
  lv1.Items.EndUpdate;
end;

Будет работать если строго три уровня и на 2-ом и 3-ем только по одной ветви

[bablzz]

че то не хочет работать
вот заполняю корень, хочу его выбрать, выкидывает с ошибкой
List index out of bounds

а нельзя использовать потоки? может с ними как то легче
хотя мне выше пример больше нравится

[Аватар]

Будет работать если строго три уровня и на 2-ом и 3-ем только по одной ветви

для кого писалось? Если уровня не три - добавь анализ и соответствующие действия

    Caption:=xNode.Text;
    if xNode.HasChildren then begin 
      SubItems.Add(xNode.Item[0].Text);
      if xNode.Item[0].HasChildren then SubItems.Add(xNode.Item[0].Item[0].Text);
    end;

[bablzz]

Блин, а как сделать, если например к корню относится несколько подкорней.
ну к примеру
-Страна
-Область
-Площадь
-Область
-Площадь
Как мне все эти области вывести в ListView? ну с площадью и страной

[bablzz]

проблема решена