Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.18;
Скачать: CL | DM;

Вниз

Файлы, файлы, файлы...   Найти похожие ветки 

 
Delphi Maniak   (2002-11-07 11:43) [0]

Подскажите плз, как сделать поиск в определенной папке по файлам с расширением acct и вывести список найденных файлов в TListView или TMemo. СРОЧНО!


 
Separator ©   (2002-11-07 11:54) [1]

procedure Find(Path: string; List: TStrings);
var
F: TSearchRec;
begin
if Path[Length(Path)] <> "\" then
Path:= Path + "\";
List.Clear;
if FindFirst(Path + "*.acct", faAnyFile, F) = 0 then
repeat
List.Add(F.Name)
until FindNext(F) <> 0;
FindClose(F)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Find("C:\", ListBox1.Items);
end;


 
KoluChi ©   (2002-11-07 11:57) [2]

(fido7.ru.delphi):
procedure ScanDir(StartDir: string; Mask:string; List:TStrings);
var
SearchRec : TSearchRec;
begin
if Mask = "" then Mask := "*.*";
if StartDir[Length(StartDir)] <> "\" then StartDir := StartDir + "\";
if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
begin
repeat
Application.ProcessMessages;
if (SearchRec.Attr and faDirectory) <> faDirectory then
List.Add(StartDir + SearchRec.Name)
else if (SearchRec.Name <> "..") and (SearchRec.Name <> ".") then begin
List.Add(StartDir + SearchRec.Name + "\");
ScanDir(StartDir + SearchRec.Name + "\",Mask,List);
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

Пример вызова. параметры
1. имя папки
2. маска, по умолчанию *.*
3. хранилище для резульатат, любой наследник от TString, например TStringList

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
ScanDir("c:","",ListBox1.Items);
Label1.Caption := IntToStr(ListBox1.Items.Count);
end;

Анатолий Подгорецкий
anatoly@podgoretsky.com



 
Separator ©   (2002-11-07 12:05) [3]

эээ, в общем каждый день одно и тоже



Страницы: 1 вся ветка

Текущий архив: 2002.11.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
3-59000
cd1
2002-10-28 21:34
2002.11.18
Извините за вопрос, кто-нибудь работал с TreeView в БД?


1-59088
Nomad.kz
2002-11-07 16:22
2002.11.18
TThread.ThreadID - уникальность после завершения потока


14-59413
kaif
2002-10-31 00:27
2002.11.18
Инсталляция апача под win32


1-59102
PETR2002
2002-11-07 23:05
2002.11.18
sendkeys


3-59051
Felix
2002-10-30 10:21
2002.11.18
Inter Base