Delphi-работа с файлами,каталогами

[POPOV]

Короче необходимо реализовать следующее:
1. Смена текущего каталога по нажатии кнопки. Имя каталога, на который происходит смена ввести в edit. В итоге результат должен быть виден в DirectoryListBox1.

Для выполения этого задания есть функция:
SetCurrentDir(Dir:string):Boolean.

Ну я в проге после Begin так и пишу:
SetCurrentDir(edit1.text, DirectoryListBox1.Directory);
DirectoryListBox1.Update;

В итоге ничего не происходит, в чём проблема ?

2. Получить атрибуты файла (вывести например в Memo).
Тоже есть функция: FileGetAttr(FileName:string):intege r
Только как ей пользоваться здесь не понимаю..

3. Поиск файла в каталогах указанных в DirectoryListBox(Имя файла для поиска вводить в edit).В Memo вывести количество найденных файлов и открыть файлы TXT.

Вот функция: FileSearch(Name,DirList:string):str ing

Здесь кое-чё написал:

procedure TForm1.Button11Click(Sender: TObject);
var s:string;
begin
s:=FileSearch(edit1.Text, DirectoryListBox1.Directory);
Memo1.Clear;
Memo1.Lines.LoadFromFile(s);
end;

Тока ищёт у меня почему-то не во всех каталогах DirectoryListBox, а тока в выделенном.

[mihali4]

1. DirectoryListBox1.Directory:=Edit1. Text;
2.

FileGetAttr(FileName:string):intege r
Только как ей пользоваться здесь не понимаю..

Курсор на FileGetAttr и жмем пимпу F1.
3.

Тока ищёт у меня почему-то не во всех каталогах DirectoryListBox, а тока в выделенном.

Вы сами-то поняли, что хотите? По вашему, DirectoryListBox вообще ни при чем, и поиск нужно делать по всему диску.

[POPOV]

С первым разобрался, со вторым разобрался. Вот по 3-му пункту снова вопрос:" Как сделать чтоб файл искался в директориях указанных в программе?" .

[mihali4]

Сообщение от POPOV

С первым разобрался, со вторым разобрался. Вот по 3-му пункту снова вопрос:" Как сделать чтоб файл искался в директориях указанных в программе?" .

Каким образом происходит "указание"?
Путем выделения.
Если вы имеете в виду поиск во вложенных каталогах, то так и напишите.

[POPOV]

Короче ладно, так оставлю, СПАСИБО !

[_SacreD_]

Слушай, можешь скинуть исходник мне на мыло, у меня подобная прога, надо сделать, времени не очень много осталось. Заранее спасибо мыло 1203-3@mail.ru

[POPOV]

Сообщение от _SacreD_

Слушай, можешь скинуть исходник мне на мыло, у меня подобная прога, надо сделать, времени не очень много осталось. Заранее спасибо мыло 1203-3@mail.ru

Отправил !