Где ошибка в коде?

[Македонский]

А у меня пашет, и если вместо FindFirst(Dir+'*111*.*',faAnyFile,S R); написать FindFirst(Dir+'*.*',faAnyFile,SR); - все просто в шоколаде!

[Alex21]

Вот еще вариант:
Uses masks

 
procedure SearchinDir (Mask, Dir : string; var List :
TListBox);
var
  r: integer;
  f: TSearchRec;
begin
  ChDir (Dir); { Перейти в каталог, в котором идёт поиск }
  r := FindFirst ('*.*', faAnyFile, f); { Найти все файлы }
  while r = 0 do
  begin
    if MatchesMask (f.Name, Mask) then { Маска совпала }
      Form1.ListBox1.Items.add (ExpandFileName (f.Name));
    if (f.Attr and faDirectory) = faDirectory then
      if (f.Name <> '.') and (f.Name <> '..') then
      begin
        SearchInDir (Mask, ExpandFileName (f.Name), List);
      end;
    r := FindNext (f);
  end;
  FindClose (f);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='*8*.*'; {маска - любые файлы с "8" }
Edit2.Text:='d:\1\'; {путь}
SearchinDir(edit1.Text,Edit2.Text,ListBox1);
end;

[Македонский]

Alex21, Все правильно, у меня такой же код (я имею в виду по смыслу), к тому же твой код у меня дает такие же результаты.
Все понятно, ошибка не в самой процедуре, а возможно в отображении результата. Спасибо за помощь!

[Alex21]

Сообщение от Македонский

к тому же твой код у меня дает такие же результаты.

Странно, в моем коде вывод идет в листБокс строго по маске (у меня):

  Form1.ListBox1.Items.add ({ExpandFileName} (f.Name));

Присмотрись к функции MatchesMask - создание маски (*?)

[Македонский]

Раньше я не встречался с этой функцией, в хэлпе дельфийском как кот наплакал, не мог бы ты привести пример задания маски, какое значение имеет mask в твоем коде?

[Alex21]

См код. На созании формы в первом Edite - маска, во втором - путь.
Пример: ?e*.*

Первая буква неизвестна (?)
Вторая буква - е
Кол-во букв в имени - неизвестно - *
тип файла неизвестен - *

[Македонский]

Я использовал маску таким образом: FindFirst(Dir+'*'+edit2.text+'*.*', faAnyFile,SR);


А вот весь мой исходник:

procedure TForm1.FindFile(Dir:String);
var SR:TSearchRec;
FindRes:Integer;
begin
FindRes:=FindFirst(Dir+'*'+edit2.te xt+'*.*',faAnyFile,SR);
While FindRes=0 do
begin
if ((SR.Attr and faDirectory)=faDirectory) and
((SR.Name='.')or(SR.Name='..')) then
begin
FindRes:=FindNext(SR);
Continue;
end;
if ((SR.Attr and faDirectory)=faDirectory) then
begin
FindFile(Dir+SR.Name+'\');
FindRes:=FindNext(SR);
Continue;
end;
//----- следующий блок не обязателен
if checkbox3.Checked then begin
if ComboBox1.ItemIndex=0 then
if sr.Size<strtoint(edit1.Text)*1000 then begin
FindRes:=FindNext(SR);
Continue;
end;
if ComboBox1.ItemIndex=1 then
if sr.Size>strtoint(edit1.Text)*1000 then begin
FindRes:=FindNext(SR);
Continue;
end;
end;

if Checkbox2.Checked then begin
case ComboBox1.ItemIndex of 0:
if FileDateToDateTime(SR.Time)<DateTim ePicker1.Date
then begin
FindRes:=FindNext(SR);
Continue;
end; end;
case ComboBox1.ItemIndex of 1:
if FileDateToDateTime(SR.Time)>DateTim ePicker2.Date
then begin
FindRes:=FindNext(SR);
Continue;
end; end;
end;
//----------------------
begin
ListView1.AddItem(SR.Name,listview1 );
FindRes:=FindNext(SR);
end; end;
FindClose(SR);
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
listView1.Clear;
FindFile(shellcombobox1.Path+'\');
end;

Не выходит...