⇢ Программисты DELPHI помогите с заданием? никак не могу ...
задача такая . организовать рекурсивный поиск на диске 'D' . искать файл text.txt . и если файл найден - показать его в listbox1 . затем прочитать его содержимое, скопировать в переменную и сохранить в другой созданный новый файл .
без поиска всё работает . Не работает только сам поиск . Укажите на ошибки, 2 недели мучаюсь ...
вот сам код
procedure TForm1.ScanDirectory(Path:string; mask:string);
var
sr:tsearchrec;
find1:integer;
begin
if mask='' then
mask:=mask+'*.*';
if Path='' then
Path:=Path+'D:\';
find1:=findfirst(Path+ mask,faanyfile,sr);
while find1=0 do
begin
if (sr.attr and fadirectory)=fadirectory then
if (sr.name='.') or (sr.name='..') then
begin
if (sr.name='text.txt') then
listbox1.items.add(sr.name)
else
find1:=findnext(sr);
continue;
end;
if (sr.Attr and fadirectory)=fadirectory then
begin
ScanDirectory(Path+ sr.name, mask);
if (sr.name='text.txt') then
listbox1.Items.add(sr.Name) else
find1:=findnext(sr);
continue;
end;
find1:=findnext(sr);
continue;
end;
findclose(sr);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
txt:textfile;
txt0:textfile;
s:string;
begin
ScanDirectory('D:\', '');
if fileexists('text.txt') then
assignfile(txt, 'text.txt');
assignfile(txt0, 'text1.txt');
rewrite(txt0);
reset(txt);
while not eof(txt) do
begin
readln(txt, s);
writeln(txt0, s);
end;
closefile(txt0);
closefile(txt);
end;
end.