Frees, да я подумал, что код в браузере ничего не даст, но если надо.. =)
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
TreeView1: TTreeView;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure TreeView1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
f: TextFile;
str: String;
finded: array of boolean;
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a: array [0..255] of integer; // массив последних индексов опр. уровня
oldLevel,newLevel,itemIndex,i: integer;
begin
oldLevel:=0;
newLevel:=0;
itemIndex:=1;
for i:=0 to 255 do a[i]:=0;
TreeView1.Items.Clear; //Очищение списка папок
AssignFile(f,'FileTree.txt'); // открытие файла
Reset(f);
readLn(f,str); // создание корневого каталога
TreeView1.Items.Add(nil,str); // из первой строки файла
while not EOF(f) do // обработка файла
begin
readLn(f,str); // чтение строки и занос в переменную str
newLevel:=((pos('-',str)-2) div 4)+1; // поиск уровня из строки
Delete(str,1,pos('-',str)+2); // оставляем только название файла\папки
//TreeView1.Items.AddChild(TreeView1.Items[a[newLevel-1]],str+', '+inttostr(itemIndex));
a[newLevel]:=itemIndex;
itemIndex:=itemIndex+1;
oldLevel:=newLevel;
End;
setLength(finded,itemIndex);
CloseFile(f); // закрытие файла
end;
procedure TForm1.TreeView1Click(Sender: TObject);
var
index,level,pLevel: integer;
begin
pLevel:=0;
level:=0;
AssignFile(f,'FileTree.txt'); //добираемся до опр. строки
Reset(f);
for index:=0 to TreeView1.Items.Count-1 do
begin
readln(f,str);
if TreeView1.Items[index].Selected=true and finded[index]=false then //получаем индекс выделенного элемента
begin // стоит фильтр на то, что объект выбран, и то, что объект раньше не кликался
finded[index]:=true; // объект обработан
if index<>0 then pLevel:=((pos('-',str)-2) div 4)+1; // поиск уровня родителя
repeat
readln(f,str);
level:=((pos('-',str)-2) div 4)+1; // поиск уровня след. строки
if pLevel=level-1 then
TreeView1.Items.AddChild(TreeView1.Items[index],str)
else if pLevel<level-1 then
continue
else if pLevel>level-1 then
break;
until (EOF(f));
end;
end;
CloseFile(f); // Закрываем файл. Конец
end;
end.
|
|
Снимаю шляпу и низкий поклон 