Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
ВнизTree Walker: Create Найти похожие ветки
← →
Набережных С. (2002-04-19 22:43) [20]Пример с массивом:
type
TArr = array of array of TTreeNode;
procedure Parse(TV: TTreeView; var A: TArr);
var
n,m,k:integer;
begin
m:=0; n:=0;
while n < TV.Items.Count do
with TV.Items[n] do
begin
if Level >= m then
begin
m:=Level + 1;
SetLength(A,m);
end;
k:=Length(A[Level]);
SetLength(A[Level],k+1);
A[level,k]:=TV.Items[n];
Inc(n);
end;
end;
Пример вызова:
var
Arr:TArr;
Parse(TreeView1,Arr);
for n:= 0 to Pred(Length(Arr)) do
begin
for m:=0 to Pred(Length(Arr[n]))do
Memo1.Lines.Add(StringOfChar(" ",Arr[n,m].Level*4)+Arr[n,m].Text);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c