Главная страница
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.023 c
3-63986
Zergling
2003-02-28 06:45
2003.03.20
Транзакции


3-63976
cherox
2003-02-27 12:24
2003.03.20
TADOQuery


6-64251
BoB
2003-01-27 11:06
2003.03.20
DialUp соединения


14-64281
Roman Go
2003-03-06 09:58
2003.03.20
Кто нибудь встречал компонент


1-64070
Array
2003-03-08 23:33
2003.03.20
Проблема с динамическим массивом