Поиск файлов

← →
Надуев Алексей © (2007-09-08 18:52) [0]

Help!
1:Почему программа при поиске не видит первый файл?

procedure TForm1.Button1Click(Sender: TObject);
begin

findfirst(edit1.Text+"\*.mp3",faAnyFile,rec);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
s:string;

begin
repeat
s:=rec.Name;
memo1.lines.add(s);
findnext(rec);
until
s=rec.Name
end;

2: Как можно узнать имена подкаталогов

← →
Denis_ © (2007-09-08 21:01) [1]

if FindFirst(edit1.Text+"\*.mp3",faAnyFile,rec) = 0 then
repeat
if (rec.Name <> ".") and (rec.Name <> "..") then
begin
s:=rec.Name;
memo1.lines.add(s);
end;
until FindNext(rec) <> 0;

← →
Надуев Алексей © (2007-09-08 21:10) [2]

У меня программа отображает на файл меньше :(

почитай, внимательно, хуже не будет
http://delphimaster.net/view/2-1188068008/

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