Алгоритм на Delphi

Не, эт невозможно.

 

да ну нафик... за пару штук баксов сделаю.

 

возможно все
а еще есть яндекс

а еще есть всякие сайты по дельфе типа королевста делфи и тд и тп

 

yandex.ru google.com rambler.ru - пожалуйста, целых три ссылки!

...еще ребенок но уже лентяй.

 

можно для начала по хелпу полазить, типа File

 

Вам же уже Rem сказал, что это невозможно сделать, а по ссылкам, скорее всего, как раз всякая ерунда и будет, которая не работает

 

подобная задача реализуема пожалуй на любом языке но тут за тебя пахать не кто не будет

 

Забиваешь в поиск файлов шнягу типа *.* и будет тебе список:vcrazy:

 

Элементарно, если немного подумаешь, возможно сам напишешь, если не получается, приводи примеры кода, где не работает, а так писать врят-ли кто-то будет.

 

Поясняю - неоднократно наблюдал на примере подрастающего поколения. То есть перевожу на внятный язык. Нужна прямая ссылка на готовый реферат, в котором можно заменить фамилию на титульном листе. Все остальное делать впадлу - даже ходить по ссылкам, не то что самому что-то писать. Поиск по опубликованным алгоритмам и другим произведениям ума человеческого - "информационный мусор". От же повезет какой-то конторе со специалистом...

 

ага щас ....

 

Вот примерное направление написания данного кода, где вызываешь 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;

 

В точку.

 

HiddenSeeker,
сам, говориш, реализовал )))

а зачем тему создавал? раз все сам можешь написать?

 

HiddenSeeker,

ты горячий эстонский парень? смотри:

>>29.06.2007, 18:33 Возможно ли реализовать на Delphi следующий алгоритм.... Если это возможно, то напишите код

>>02.07.2007, 18:23 Не дадите ссылочку?

---04.07.2007, 20:37 выдал явно стыреную процедуру и типа "хотел узнать ссылку на сайт королевства Delphi"

открою тайну, если в яндексе ввести "королевство делфи" и нажать "Энтер" - ссылка окажется на первом месте. Неделю искать это - даже горячие эстонские парни отдыхают

уважаемый молодой талант, знайте впредь, что время, необходимое для написания примера, аналогичного вашему, равно ровно скорости набития его на клавиатуре. ни больше ни меньше. имхо думать там не нужно совершенно. можно или знать или не знать.

короче Rem абсолютно прав - какойто конторе с ним повезет...

----

почему решил что стыреную? а сам не искал откуда? а нафиг искать, если HiddenSeeker сам придумал например слово "TWin2kAppForm" я убью себя ап стену

 

еще тесты к этому примеру и вообще будет супер

 

В основном у таких дальше Form1 дело не доходит

 

Вот такие горе-программисты попадаются, еще и неоптимизированный код пишут.

 

Ладно, хватит стыдить парня - это в любом случае бесполезно. Может быть его проняло и станет нормальным специалистом, а если нет - станет "менеджером"

 

Терпеть не могу, когда в onCreate у формы пишут что-то кроме вызовов процедур

кто это на королевстве такую какашку опубликовал?!

 

Гость,
это наверное имитация консольного приложения

 

я такое на втором курсе на ассемблере писал, в качестве лабораторной работы )) действительно, лентяй. так ты ничему не научишься :znaik: