Текущий архив: 2007.10.07;
Скачать: CL | DM;

Вниз

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

← →
Надуев Алексей ©   (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]

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

---

← →
vasIZmax ©   (2007-09-08 22:06) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2007.10.07;
Скачать: CL | DM;

Наверх

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