| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поиск файлов [D7, XP]

Надуев Алексей ©   (2007-09-08 18:52:00) 

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: Как можно узнать имена подкаталогов

---

vasIZmax   (2007-09-08 22:06:00) [1]

почитай, внимательно, хуже не будет
http://www.delphimaster.ru/cgi-bin/forum.pl?n=18&id=1188068008&p=1

---

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

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

---

Denis_   (2007-09-08 21:01:00) [3]

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;

---

Наверх