FindFirst,FindNext

← →
Prankster (2004-01-20 21:47) [0]

мож у кого заваляласть процедурка рекурсивная по поиску файлов на диске?

← →
Юрий Федоров (2004-01-20 21:52) [1]

Завалялась, но не выдирается - привязана к конкретике.
Ровно 6 секунд писать такую - постыдитесь :-) Неужели лень ?

← →
Anatoly Podgoretsky (2004-01-20 21:55) [2]

И поиск в чаво не помогает?

← →
YuRock (2004-01-20 22:03) [3]

uses Windows, Dialogs; procedure FindFiles(cPath: String); var hFile: DWORD; cCurPath: String; lpF: WIN32_FIND_DATA; begin cCurPath := Copy(cPath, 1, Length(cPath) - 3); hFile := FindFirstFile(LPSTR(cPath), lpF); if hFile <> INVALID_HANDLE_VALUE then begin if ((lpF.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) and (String(lpF.cFileName) <> ".") and (String(lpF.cFileName) <> "..") then FindFiles(cCurPath + String(lpF.cFileName) + "\*.*") else ShowMessage(String(lpF.cFileName)); while FindNextFile(hFile, lpF) do if ((lpF.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) and (String(lpF.cFileName) <> ".") and (String(lpF.cFileName) <> "..") then FindFiles(cCurPath + String(lpF.cFileName) + "\*.*") else ShowMessage(String(lpF.cFileName)); end; end; begin FindFiles("C:\*.*"); end.

← →
YuRock (2004-01-20 22:06) [4]

> Юрий Федоров © (20.01.04 21:52) [1]
> Ровно 6 секунд писать такую

А если машина слабая? откомпилироваться же не успеет!

← →
Юрий Федоров (2004-01-20 22:08) [5]

>>YuRock © (20.01.04 22:06) [4]
Писать 6 секунд, про время компиляции мы не говорили :-)

← →
Palladin (2004-01-20 22:11) [6]

> Юрий Федоров © (20.01.04 22:08) [5]

Ну вы батенька просто быстрый Гонзалес :) 9 секунд минимум получилось :)

← →
YuRock (2004-01-20 22:20) [7]

> Юрий Федоров © (20.01.04 22:08) [5]
> Писать 6 секунд, про время компиляции мы не говорили :-)

Ну дак а Delphi запустить? Или Вы в фаре пишите и с командной компилите, как я иногда?

← →
Юрий Федоров (2004-01-20 22:27) [8]

>>Palladin © (20.01.04 22:11) [6]
Надо тренироваться :-))
>>YuRock © (20.01.04 22:20) [7]
А delphi должен быть уже запущен :-)
и вообще, delphi должен в автозагрузке стоять :-)

← →
YuRock (2004-01-20 22:32) [9]

> Юрий Федоров © (20.01.04 22:27) [8]
> и вообще, delphi должен в автозагрузке стоять

А еще лучше, чтоб Microsoft стала диллером Borland и включала Delphi в поставку Винды!

← →
Anatoly Podgoretsky (2004-01-20 22:56) [10]

← →
YuRock (2004-01-20 23:01) [11]

Я выгружаю Delphi в 2-х случаях:

1. Снимаю процесс delphi32.exe, когда он полностью повис;

2. Когда перезагружаю или выключаю комп.

← →
Prankster (2004-01-22 17:37) [12]

всем спасибо, просто и правда лень писать было :)
p.s. блин, ну вы тут и обсуждение затеяли :))

FindFirst,FindNext Найти похожие ветки