Вопросы по Delphi (все версии) - часть 4 - [56] :: Прикладное программирование

Столкнулся с такой проблемой уже заколебался искать.

Суть в следующеем имеется некий файл текстовый и понему строится дерево через TreeView.Loadfromfile();
С помощью этого дерева формируется структура катологов и файлов. и вот я построил эту структуру и хочу ей воспользоватся в каждой папке есть текстовый файл из которого нужно забрать информацию файл текстовый, но припопытке чтения выдает что фал не найден. Вот привожу код.

Вот привожу код для первого формирует файловую структуру

Код:

procedure TForm2.Button1Click(Sender: TObject);
var
i:integer;
begin
SetCurrentDir(MyDir);
TreeView1.LoadFromFile('math.txt');
if not(directoryexists('database')) then
begin
CreateDir('database');
Setcurrentdir('database');
end;
for i:= 0 to (TreeView1.Items.Count - 1) do
begin
SetCurrentDir('database');
if not(directoryexists(TreeView1.Items[i].Text)) then
begin
CreateDir(TreeView1.Items[i].Text);
Setcurrentdir(TreeView1.Items[i].Text);
FileCreate(TreeView1.items[i].text + '.txt');
end;
SetCurrentDir('..');
end;
end;

А вот для поиска в ней то собственно и проблемы

Код:

procedure TForm2.Button2Click(Sender: TObject);
var
st:string;
i:integer;
//t:textfile;
str:string;
cur:string;
begin
SetCurrentDir(MyDir);
st:=Edit1.Text;

for i:= 0 to (TreeView1.Items.Count - 1) do
begin
SetCurrentDir('database');
SetCurrentDir(TreeView1.Items[i].Text);
Cur:=TreeView1.Items[i].text;
Cur:=Cur+'.txt';
AssignFile(t,Cur);
Reset(t);
while not eof(t) do

while not eoln(t) do
begin
st:='';
Readln(t,str);
if pos(st,str) <> 0 then
begin
memo1.Lines.Add(TreeView1.Items[i].Text);
TreeNode:=TreeView1.Items[i];
while TreeNode.Parent <> nil do
begin
memo2.Lines.Add(TreeNode.Parent.Text);
TreeNode:=TreeNode.Parent;
end;
end;

end;

CloseFile(t);
SetCurrentDir('..');
end;
end;

Модерирует : ShIvADeSt
ShIvADeSt (28-06-2009 02:10): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=10477	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101