Поиск файла по расширению

← →
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]

← →
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]

Большое спасибо всем кто ответил, все работает великолепно.

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