Форум: "Потрепаться";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];
ВнизПоиск файла Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c