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

Вниз

Поиск файла   Найти похожие ветки 

 
Arcada   (2003-03-06 12:46) [0]

Мне надо осуществить поиск файла по всем дирректориям.
Помогите мне плеазе.


 
Beginer1 ©   (2003-03-06 12:50) [1]

findfile()


 
Arcada   (2003-03-06 12:56) [2]

А по подробнее.
Я ламер в этом деле поэтому findfile Мне ничего не говорит...
Пожалста разъясните..


 
Anatoly Podgoretsky ©   (2003-03-06 13:04) [3]

Ну ламерам нечего делать в программировании им лучше на скрипке играть, а для чайников здесь есть FAQ


 
Hint ©   (2003-03-06 13:05) [4]

Запускаем Delphi.
Выбирем меню Help, пункт Delphi Help.
Выбираем закладку "Предметный указатель" (для русской версии Windows).
Вводим в поле "1. Введите первые буквы нужного слова" словосочетнаие FindFirst.
Прожимаем Enter.
Читаем справку.
Пишем код для поиска файлов в указанной папке (во вложенных папках код искать не должен).
Разбираем написанный код и исправляем ошибки.
На основе написанного кода пишем функцию.
Думаем как ее вызвывать рекурсивно.
Пишем.
Исправляем ошибки.


 
Lola ©   (2003-03-06 13:17) [5]

http://www.atrussk.ru/delphi/5/file/file5119.htm


 
wnew ©   (2003-03-06 13:21) [6]

http://www.codenet.ru/progr/delphi/stat/ffile.php


 
Anatoly Podgoretsky ©   (2003-03-06 13:28) [7]

Все есть в местном FAQ


 
Danilka ©   (2003-03-06 13:30) [8]

:)))
невыдержала душа поэта...


 
Arcada   (2003-03-06 13:30) [9]

Я знаю как написать это дело на паскале помогите исправить.
Uses DOS;

Procedure FileFind(Dir,FindName : PathStr);
Procedure SearchDir(Dir : PathStr);
Var
SRec: SearchRec;
i:string;
begin

if Dir[Length(Dir)] <> "\" then Dir := Dir+"\";
FindFirst(Dir + FindName, AnyFile, SRec);
While DosError = 0 do
begin
With SRec do
if Attr and (VolumeID + Directory) = 0 then
WriteLn(Dir + Name);
FindNext(SRec);
end;
FindFirst(Dir+"*.*", Directory or ReadOnly or Hidden or SysFile, SRec);
While DosError = 0 do
begin
With SRec do
if (Attr and Directory <> 0) and (Name[1] <> ".") then SearchDir(Dir+Name);
FindNext(SRec);
end;
end;
begin
SearchDir(Dir);
end;

begin

FileFind("c:\","*.exe");
FileFind("h:\","*.exe");
FileFind("j:\","*.exe");
FileFind("d:\","*.exe");

end.


 
Danilka ©   (2003-03-06 13:34) [10]

Arcada (06.03.03 13:30)
вот-так:
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=1015254946&n=19



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

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

Наверх




Память: 0.48 MB
Время: 0.02 c
14-64321
Донской
2003-03-04 09:48
2003.03.20
Interbase 6


9-63923
Ricks
2002-10-16 18:58
2003.03.20
Дождь, снег в OpenGL


3-63989
IlyaGer
2003-02-28 10:47
2003.03.20
Как заставить правил. работать скроллинг в DBGrid + ADOQuery.


8-64234
Gerda
2002-12-05 16:57
2003.03.20
По поводу JPEG`а


14-64335
pasha676
2003-03-04 16:10
2003.03.20
Компонентик изображающий индикатор