Поиск файла

← →
odyssey © (2003-12-10 19:26) [0]

Необходимо последовательно получить имена файлов. При выполнение
данного кода, переменной filn присваивается не имя файла, а - . (точка). Подскажите, что не верно!

Mask:= "c:\test\*.*";
Attr:=faAnyFile;
FindFirst(mask,Attr,F);
If F.Name<> "" then begin
filn:=F.Name;
...................
While FindNext(F)=0 do filn:=F.Name;

← →
Anatoly Podgoretsky © (2003-12-10 19:34) [1]

Точка это имя текущей папки.

← →
odyssey © (2003-12-10 19:35) [2]

Я это понял, а как мне получить имя?

← →
panov © (2003-12-10 19:38) [3]

используй faAnyFile-faDirectory

спасибо! все получилось))

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