Форум: "Основная";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];
Вниз
Поиск файла по расширению Найти похожие ветки
← →
Zamik (2003-12-22 12:19) [0]Люди пожалуйста помогите, необходимо чтобы прога находила файл в определенных каталогах и выводила полный путь к этому файлу. Имя файла неизвестно, только расширение. Пожалуйста швырните код.
← →
Anatoly Podgoretsky (2003-12-22 12:22) [1]И в чем твое затруднение, если в получении кода, то где приложение?
← →
Zamik (2003-12-22 12:24) [2]Не знаю с помощью какой функции осущиствить поиск по каталогу.
← →
Anatoly Podgoretsky (2003-12-22 12:24) [3]FindFirst/Next
← →
Zamik (2003-12-22 12:26) [4]Нельзя ли швырнуть пример кода Плизззззз
← →
Anatoly Podgoretsky (2003-12-22 12:27) [5]См. [1] или чаво, но у тебя специчифеский вопрос, там такого нет.
← →
Zamik (2003-12-22 12:46) [6]Но если там ответа нет чаво смотреть
← →
Плохиш_ (2003-12-22 12:49) [7]>Zamik © (22.12.03 12:46) [6]
Поити в ближайший книжный магазин, ну и приобрести какую-нибуть книжечку
← →
Zamik (2003-12-22 12:51) [8]Если ответ прост почему бы не подсказать а ?
← →
kaif (2003-12-22 12:51) [9]В Delphi Help есть есть пример для FindFirst, FindNext. Нажми F1.
← →
Anatoly Podgoretsky (2003-12-22 13:08) [10]Давай сначала определимся, ты хочешь код получить (тогда смотри [1]) или помощью в написании тогда смотри остальное, указаное. То что там нет точного ответа на твой вопрос, так ты же надеюсь программист и к 99 процентов из указаного сможешь добавить свою часть, она самая простая, сводится к списку и операции отношения =
← →
Palladin (2003-12-22 14:58) [11]
> kaif © (22.12.03 12:51) [9]
Побоится палец сломать наверно...
← →
Anatoly Podgoretsky (2003-12-22 15:12) [12]А клавиши последовательно нажимать или по очереди
← →
Ангел. (2003-12-22 19:37) [13]type
tfilearray = array of string
procedure fff(Patch: String; out fileArray: tfileArray; Ext: String);
var
Serc: TSearchRec;
begin
SetLength(fileArray, 0);
if FindFirst(Patch + "\*." + Ext, faAnyFile, Serc) = 0 then
begin
SetLength(fileArray, 1);
fileArray[0] := Patch + "\" + Serc.Name;
while (FindNext(Serc) = 0) do
begin
SetLength(fileArray, Length(fileArray) + 1);
fileArray[Length(fileArray)-1] := Patch + "\" + Serc.Name;
end;
FindClose(Serc);
end;
end;
Без коментариев...
← →
Zamik (2003-12-23 15:58) [14]Большое спасибо всем кто ответил, все работает великолепно.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.037 c
