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

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

Вот часть исходного кода по поиску файла:

procedure TForm1.FindFile(Dir:String);
var SR:TSearchRec;
FindRes:Integer;
begin
FindRes:=FindFirst(Dir+'*111*.*',fa AnyFile,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;

По идее, процедура должна найти файл (я выбрал каталог поиска) с именем *111*.*, где вместо звездочек любые символы и цифры. Но результат непредсказуем: выдает и этот и другие файлы (без единичек в имени).
Кто может указать на ошибку?

[JTG]

*111* попробуй

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

Пробовал, ничего не находит без расширения.

[mutabor]

если так искать не захочет, она может так и не должна искать, бери имя файла в строку и функцией Pos сам ищи

P.S. по моему результат как раз предсказуем - все файлы подряд

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

Что-то я совсем не понимаю, я вставил в конец

if pos(edit2.Text,sr.name)<>0 then begin
ListView1.AddItem(SR.Name,listview1 );

Пусто...

[mutabor]

if pos(edit2.Text,sr.name)<>0 then begin
ListView1.AddItem(SR.Name,listview1 );

здесь все правильно, разве что begin непонятно откуда затесался,
ищи в остальном коде, скорее всего не туда всунул
сунь туда же ShowMessage(нужная переменная); и узнаешь причину

p.s. кстати, разве не так надо ListView1.Items.Add ?

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

Не, там правильно, я не всё показал, на самом деле

if pos(edit2.Text,sr.name)<>0 then begin
ListView1.AddItem(SR.Name,listview1 );
FindRes:=FindNext(SR);
end; end;
FindClose(SR);
end;

Всунул туда же showmessage(sr.name); - ничего не выдает... Странно

[Stilet]

Александр Македонский, У меня твой код вообще не идет, поскольку там куча недоделок синтаксических, вот тебе мой пример для раздумий :

unit Unit1;

interface

uses shellapi,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function findA(p:string; var slist:TStringList):variant;
var i:integer;
Form1: TForm1;

implementation

{$R *.dfm}
//********** FUNCTION **********
function findA;
var s:TSearchRec; lp,ep,ss:string;k:integer;
begin
ep:=ExtractFilePath(p)+'*.*';
if FindFirst(ep,faAnyFile, s)=0 then begin
repeat
if (s.Name <>'.')and(s.Name <>'..') then begin
lp:='';k:=0; while k<=i*4 do begin lp:=lp+' ';inc(k);end;
if s.Attr=faDirectory then
slist.Append(lp+'['+s.Name+']')
else
if s.Name='Doc1.doc' then
ShellExecute(Application.Handle,'op en',pchar(ExtractFilePath(ep)+s.Nam e),'','',SW_SHOWDEFAULT);
slist.Append(lp+s.Name);
if s.Attr=faDirectory then begin
inc(i);
findA(ExtractFilePath(p)+s.Name+'\' +ExtractFileName(p), slist);
dec(i);
end;
end;
until FindNext(s)<>0
end;
end;
//********** END FUNCTION ****** {}
procedure TForm1.FormCreate(Sender: TObject);

var ts:TStringList;
begin
ts:=TStringList.Create;
finda('c:\temp\*.*',ts);
ListBox1.Items:=ts;
end;

end.

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

Конечно не идет, надо еще процедуру написать

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
listView1.Clear;
FindFile(shellcombobox1.Path+'\'); // или вместо shell что-нить другое
end;

А насчет твоего кода - спасибо, попробую разобрать.

[Stilet]

Нет ты меня немного не понял, я имею ввиду что у тебя в первом посте кол-во begin и end не совпадает, да и вообще его править серьезно нуна, посему и предложил тебе свой, ибо тоже когда-то специально ради такого потерял время с пользой )