думаю, у тебя ошибка тут:
Код:
...
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); //<--
...
не надо злоупотреблять сменой текущей директории,тем более неграмотно. допустим, в treeview 2 итема-"папка1" и "папка2". вот как будет работать код:
Код:
//i=0
SetCurrentDir('database'); //cd="*/database/"
SetCurrentDir(TreeView1.Items[i].Text); //cd="*/database/папка1"
...
//i=1
SetCurrentDir('database'); //cd="*/database/папка1/database/"
SetCurrentDir(TreeView1.Items[i].Text); //cd="*/database/папка1/database/папка2"
...
поэтому НУЖНО использовать полные или относительные пути, то есть код надо немного переделать
Код:
...
ppath:=Extractfilepath(paramstr(0));//путь к программе
for i:= 0 to (TreeView1.Items.Count - 1) do
begin
Cur:=TreeView1.Items[i].text;
AssignFile(t, ppath+'database/'+Cur+'/'+Cur+'.txt');//используем полный путь
...
должно получиться. и не надо забывать, что в дельфи есть отладчик