VPF::Поиск файла - Форум программистов

Ripper

Дата 30.3.2005, 08:29 (ссылка)

(нет голосов)

Загрузка ...

Lonely soul...

Профиль
Группа: Участник
Сообщений: 920
Регистрация: 30.6.2004
Где: г. Москва

Репутация: 1
Всего: 23

Код


var SR: TSerchRec;
begin
 FindFirst(edit1.text + '\*.*', faAnyFile, SR);
 showmessage(SR.Name);
 FindClose(SR);
end;

в edit1 пишу C:\123.. кинул туда пару текстовых файлов...и он показывает мне вместо имени - точку.. Почему?

--------------------

"Он знает: надо смеяться над тем, что тебя мучит, иначе не сохранишь равновесия, иначе мир сведет тебя с ума" - Над кукушкиным гнездом

Coder

Дата 30.3.2005, 08:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 13.12.2004

Репутация: 5
Всего: 11

. - указывает на текущий каталог
.. - на верхний

нужно учитывать эти ситуации

короче вот готовая процедура поиска файлов в текущем каталоге и подкатологах, найденные файлы добавляются в TStringList:

Код


procedure TForm2.Scan(dir, mask : string; List: TStringList);
var
  SFile : TSearchRec;
begin
 if dir[length(dir)]<>'\' then
   dir[length(dir)]:='\';
 R:=FindFirst(dir+mask,faAnyFile,SFile);
 while R=0 do
   begin
       if (SFile.Name<>'..') and (SFile.Name<>'.') then
             Scan(Dir+SFile.Name+'\','*.*',List)
       else
          List.Add(dir+SFile.Name);
     R:=FindNext(SFile);
   end;
 FindClose(SFile);

Это сообщение отредактировал(а) Coder - 30.3.2005, 08:38

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »