Функция поиска.

← →
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;

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

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

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

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

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