TreeView

← →
Lony © (2003-06-27 11:44) [0]

Есть в файле txt или ini такой список:

c:\mydirectory\1\
c:\mydirectory\1\12\
c:\mydirectory\1\12\13\
c:\mydirectory\2\
c:\mydirectory\2\21\
и так далее.

Можно ли всё это получить в компоненте TreeView в причёсанном виде?

← →
Юрий Федоров © (2003-06-27 11:47) [1]

Однозначно можно

← →
Digitman © (2003-06-27 11:51) [2]

эта ф-ция делает львиную долю работы :
function ParsePath(const Path: String): TStringList; var i,j,k: Integer; begin Result:= TStringList.Create; try j:= Length(Path); i:=1; k:=1; while i<=j do begin if IsPathDelimiter(Path, i) then begin Result.Add(Copy(Path,k,i-k)); k:= Succ(i); end; Inc(i); end; if (Result.Count > 0) or (i > k) then Result.Add(Copy(Path,k,i-k)); except Result.Free; raise; end; end;

← →
Юрий Федоров © (2003-06-27 12:05) [3]

>>Digitman
А не проще
TStringList.Delimiter
TStringList.DelimitedText

← →
Digitman © (2003-06-27 12:14) [4]

может и проще)
но в Д5 , кажись, нет таких свойств

← →
Lony © (2003-06-27 13:11) [5]

>>Digitman
Что делает эта функция?

>>Юрий Федоров
Как это использовать в TreeView? Ведь добавлять надо по пунктам, подпунктам.

← →
Bel © (2003-06-27 13:15) [6]

> Digitman © (27.06.03 11:51)

А так ещё проще:

StringList.Text := StringReplace(Path, "\", #13#10, [rfReplaceAll]);

← →
Юрий Федоров © (2003-06-27 13:15) [7]

>>Lony © (27.06.03 13:11)
Эта функция создает список строк TStringList на основе строки с путем.
В списке все папки будут разделены и идти по порядку.
Например для строки c:\mydirectory\1\ получим список из трех элементов:
c:
mydirectory
1

А дальше нужно писать руками

← →
Digitman © (2003-06-27 13:17) [8]

> Lony

производит разбор строки, содержащий маршрут, и заносит имена каждого из узлов марштута (в порядке следования в исх.строке) последовательно в создаваемый в кач-ве результата список строк.

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

← →
Digitman © (2003-06-27 13:20) [9]

> Bel

это проще только по написанию и восприятию.
Но сложнее по заметно большему кол-ву внутренних (технологических) перераспределений памяти.

Никого нет примера, как работать с TTreeView?

Чтобы добавить корневой пункт в TreeView нужно использовать
TreeView.Items.Add(nil, s);
Чтобы добавить дочерний пункт в пункт Node нужно
TreeView.Items.AddChild(Node, s);
Подробнее в Help.

Да, но что надо вставить вместо Node? И как добавить в дочернее?

procedure Test; Var node : TTreeNode; I : Integer; S : String; begin TreeView1.Items.BeginUpdate; try TreeView1.Items.Clear; S := "Child "; node := TreeView1.Items.AddChild(nil,"Root"); For I:=0 to 9 do node := TreeView1.Items.AddChild(node,S+IntToStr(I)); finally TreeView1.Items.EndUpdate; end; end;

TreeView Найти похожие ветки