Собственно, сабж. Возможно ли реализовать на Delphi следующий алгоритм: Заданная папка сканируется на подпапки и те подпапки, которые содержат файл(например config.cfg) добавляются в список. Если это возможно, то напишите код
Имелись ввиду конкретные ссылки. Не люблю рыться в куче информационного мусора. А , все, прикрываю тему, все равно никаких полезных и эффективных советов по теме не услышал.
Вам же уже Rem сказал, что это невозможно сделать, а по ссылкам, скорее всего, как раз всякая ерунда и будет, которая не работает
Элементарно, если немного подумаешь, возможно сам напишешь, если не получается, приводи примеры кода, где не работает, а так писать врят-ли кто-то будет.
Поясняю - неоднократно наблюдал на примере подрастающего поколения. То есть перевожу на внятный язык. Нужна прямая ссылка на готовый реферат, в котором можно заменить фамилию на титульном листе. Все остальное делать впадлу - даже ходить по ссылкам, не то что самому что-то писать. Поиск по опубликованным алгоритмам и другим произведениям ума человеческого - "информационный мусор". От же повезет какой-то конторе со специалистом...
Вот примерное направление написания данного кода, где вызываешь AddFiles(const Dir: string) с параметром Dir, где Dir-это и есть начальный каталог procedure AddFile(const Dir: string; SearchRec: TSearchRec); var FileName: string; begin FileName := SearchRec.Name; if CompareText(FileName, 'config.cfg') = 0 then begin // здесь добавляешь в список end; end; procedure AddFiles(const Dir: string); var SearchRec: TSearchRec; begin if (FindFirst(Dir + '\' + '*.*', faDirectory or faAnyFile, SearchRec) = 0) then begin if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then AddFile(Dir, SearchRec); while (FindNext(SearchRec) = 0) do begin if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then begin AddFile(Dir, SearchRec); AddFiles(Dir + '\' + SearchRec.Name); end; end; end; FindClose(SearchRec); end;
ТЕМА ЗАКРЫТА! Ой-ой-ой, как все разорались в ЗАКРЫТОЙ ТЕМЕ. В свое оправдание скажу,что я вскоре после первого своего поста реализовал сей алгоритм без ЧЬЕЙ-ЛИБО ПОМОЩИ. Насчет ссылок: просто хотел узнать ссылку на сайт королевства Delphi, а меня начали обвинять в злобном свинстве. Но это уже отдельная тема. Опубликую свой алгоритм: Здесь: Skins - папка для сканирования DirRoot - элемент управления TDirectoryListBox с установленным значением Visible=False LB - элемент управления TListBox Код: procedure TWin2kAppForm.FormCreate(Sender: TObject); var a:array [0..65535] of string; i,j,ind:integer; path:string; begin DirRoot.Directory:='Skins'; j:=65000;ind:=0; for i := 0 to DirRoot.Items.Count - 1 do begin if DirRoot.Items.Strings='Skins' then j:=i; if i<=j then path:=path+DirRoot.Items.Strings+'\'; if i>j then begin a[ind]:=DirRoot.Items.Strings;ind:=ind+1;end; end; for i := 0 to ind - 1 do begin if FileExists(path+a+'\config.cfg')= True then LB.Items.Add(a) end; end; P.S. и так было сложно подсказать? Гостю - спасибо, но он опоздал P.P.S. к вышеуказанной тенденции не принадлежу!! Просто поинтересовался P.P.P.S. Скажу еще раз: ТЕМА ЗАКРЫТА!!!
HiddenSeeker, ты горячий эстонский парень? смотри: >>29.06.2007, 18:33 Возможно ли реализовать на Delphi следующий алгоритм.... Если это возможно, то напишите код >>02.07.2007, 18:23 Не дадите ссылочку? ---04.07.2007, 20:37 выдал явно стыреную процедуру и типа "хотел узнать ссылку на сайт королевства Delphi" открою тайну, если в яндексе ввести "королевство делфи" и нажать "Энтер" - ссылка окажется на первом месте. Неделю искать это - даже горячие эстонские парни отдыхают уважаемый молодой талант, знайте впредь, что время, необходимое для написания примера, аналогичного вашему, равно ровно скорости набития его на клавиатуре. ни больше ни меньше. имхо думать там не нужно совершенно. можно или знать или не знать. короче Rem абсолютно прав - какойто конторе с ним повезет... ---- почему решил что стыреную? а сам не искал откуда? а нафиг искать, если HiddenSeeker сам придумал например слово "TWin2kAppForm" я убью себя ап стену
Ладно, хватит стыдить парня - это в любом случае бесполезно. Может быть его проняло и станет нормальным специалистом, а если нет - станет "менеджером"
Терпеть не могу, когда в onCreate у формы пишут что-то кроме вызовов процедур кто это на королевстве такую какашку опубликовал?!
я такое на втором курсе на ассемблере писал, в качестве лабораторной работы )) действительно, лентяй. так ты ничему не научишься :znaik: