24.07.2007, 23:36
|
|
Участник форума
Регистрация: 11.07.2006
Сообщений: 125
Провел на форуме:
413927
Репутация:
71
|
|
Сообщение от mari00
Эээ чет вы тут начали лаяться=\, ну да ладно, вот такой вопрос как организовать поиск определенного файла по имени или части имени.Какие компоненты использовать?И можно ли обойтись без Апи функций и процедур?
procedure GetList(Dir:string;SL:TStringList);
var
i:integer;
SRec:TSearchRec;
begin
i:=FindFirst(Dir+'\'+'*',faAnyFile,SRec);
while i=0 do
begin
if((SRec.Name='')or(SRec.Name='.')or(SRec.Name='.. '))then
begin
end
else if SRec.Attr=faDirectory then
GetList(Dir+'\'+SRec.Name,SL)
else
//здесь выполняются действия с файлами делай че хочешь
SL.Add(GetTitle(Dir+'\'+SRec.Name)+#0+Dir+'\'+SRec .Name);//для примера собираются имена файлов в StringList
i:=FindNext(SRec);
end;
end;
|
|
|