Скачать: CL | DM;

Поиск файла по расширению   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.014 c