Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

Функция поиска.   Найти похожие ветки 

← →
Cyxapeff   (2004-04-11 11:21) [0]

Помогите новичку. Почему когда я выполняю Find Последний найденый файл выводится дважды.

---

← →
Kerk ©   (2004-04-11 11:24) [1]

"У тебя ошибка в 17-й строке".
Код покажи!

---

← →
Ivolg ©   (2004-04-11 11:26) [2]

var
  searhrec:tsearchrec;
 begin
    if findfirst("C:\+"*",faanyfile, searhrec)=0 then \\ дерриктория и расширение по которым ты бушь искать!
   listbox1.Items.Add(searhrec.Name); \\выыодит список файлов
   while (findnext( searhrec)=0) do \\если есть ишё файлы с таким расширением то выводит остальные
   listbox1.Items.add( searhrec.name);

---

← →
Cyxapeff   (2004-04-11 12:13) [3]

Kerk, вот код:
procedure TForm1.Find();
   var sr:TSearchRec;
   Result:word;
   begin
       ChDir(Folder);//ìåíÿåì ïàïêó íà C:\Windows
       Result := FindFirst (ras, faAnyFile,sr);
       While result=0 do
   Begin
       Result:=FindNext (sr);
       ListBox1.Items.add(sr.name);
   End;
   end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form1.ListBox1.Clear;
Folder:="C:\\Max-Files\files\exe\";
ras:="*.exe";
Find();
end;

---

← →
Kerk ©   (2004-04-11 12:22) [4]

 While result=0 do
  Begin
      ListBox1.Items.add(sr.name);
      Result:=FindNext (sr);
  End;

поменял строки местами.. попробуй теперь.

---

← →
Cyxapeff   (2004-04-11 12:26) [5]

Спасибо! Всё работает.

---

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

Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.035 c