перебор всех элементов в TtreeView

[vitalik007]

Как перебрать все элементы в TtreeView?

[SNUPY]

For i:=0 to TreeView1.Items.Count-1 do
  begin 
    TreeView1.Items[i].....
  end;

Если не ошибаю то так можно делать

[vitalik007]

спасибо!вот другая проблема.
дан файл такого формата
свойство level свойство text
свойство level свойство text
свойство level свойство text

пример:
0 1
1 1.1
2 1.1.1
2 1.1.2
2 1.1.3
1 1.2
2 1.2.1
0 2
1 2.1
1 2.2


Как мне прочитать из файла и сформировать TTreeView?

не прошло и минуты и я придумал как это сделать.

Как удалить элемент дерева и его детей?
я делал так
tree.Items.Delete(tree.Selected);
ну ничего не удаляется

[SNUPY]

Попорбуй так:
TreeView1.Selected.Destroy;
ЗЫ У дерева есть свой метод для загрузки из файла TreeView1.LoadFromFile(), только он твой формат способ записи в файл не поймет(((

[Stanislav]

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

не прошло и минуты и я придумал как это сделать.

Как удалить элемент дерева и его детей?
я делал так
tree.Items.Delete(tree.Selected);
ну ничего не удаляется

Можно так

TreeView1.Items.Delete(TreeView1.Items[нужный элемент i-го например: 0])

[GAGARIN-NEW]

treeview1.Items.Clear;

[Stilet]

Как мне прочитать из файла и сформировать TTreeView?

Вот альтернативный вариант:

procedure TForm1.Button1Click(Sender: TObject);
var a:TStringList;e,i:integer;z:string;f:textfile;
begin
a:=TStringList.Create;
assignfile(f,'file1.txt');reset(f);
//********** WHILE *********
while not eof(f) do  begin
 readln(f,e,z);i:=0;
 z:=Trim(z);
 while i<e do begin
  z:=chr(9)+z;inc(i);
 end;
 a.Add(z);
end;
//****** END WHILE *********  {}
a.SaveToFile('q');
a.Free;
CloseFile(f);
TreeView1.LoadFromFile('q');
end;

[vitalik007]

Ну не знаю.Никак не могу удалить с дерева выделенный элемент

[Stanislav]

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

Ну не знаю.Никак не могу удалить с дерева выделенный элемент

А чем вам это не нравиться?

 TreeView1.Items.Delete(TreeView1.Items[нужный элемент i-го например: 0])

Неработает?

[vitalik007]

мне надо чтобы выделенный удалился