Поиск по filelistbox

[Яр|/||< (^_^)]

как осуществить поиск по filelistbox

[vovk]

var
str:string;
i:integer;
begin
  str:='unit';
  i:=0;
  FileListBox1.MultiSelect:=true;
  while  i<=FileListBox1.Items.Count-1 do
  begin
       if pos(str,AnsiLowerCase(FileListBox1.Items.Strings[i]))<>0 then
                      FileListBox1.Selected[i]:=true;
       inc(i);
  end;
end;

[Яр|/||< (^_^)]

а чтобы искать текст и едита надо стр заменить на едит? А что надо сделать чтобы он когда найдёт откроет этот файл в мемо?

[artemavd]

Сообщение от Яр|/||< (^_^)

А что надо сделать чтобы он когда найдёт откроет этот файл в мемо?

Может быть так?

 Memo1.Lines.Add(ListBox1.Items.GetText);

или вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
 i:=0;
 for i:=0 to ListBox1.Count - 1 do
 Memo1.Lines.Add(ListBox1.Items.Strings[i]);
end;

[Яр|/||< (^_^)]

Ставлю вопрос по другому мне надо чтобы он нашёл текст из едита в списке лист бокс и выделил его иначе выдал сообщение такого текста нет

[vovk]

если до 1 совпадения и в мемо то можно так

var
str:string;
i:integer;
begin
str:=AnsiLowerCase(edit1.Text);
i:=0;
   while  i<=FileListBox1.Items.Count-1 do
   begin
if pos(str,AnsiLowerCase(FileListBox1.Items.Strings[i]))<>0 then
     begin
       FileListBox1.Selected[i]:=true;
       Memo1.Lines.LoadFromFile(FileListBox1.FileName);
        exit;
       end;
   inc(i);
   end;
end;

выделение + сообщение

var
str:string;
i:integer;
begin
Sel_Flb:=False;
str:=AnsiLowerCase(edit1.Text);
i:=0;
   while  i<=FileListBox1.Items.Count-1 do
   begin
if pos(str,AnsiLowerCase(FileListBox1.Items.Strings[i]))<>0 then
     begin
       FileListBox1.Selected[i]:=true;
        Exit;
       end;
   inc(i);
   end;
 Showmessage('А нету');
end;

[Яр|/||< (^_^)]

Это уже ближе но извините что туплю как сделать чтобы он нашёл точь в точь потому что у меня всё похожее а нужен только один

[vovk]

Так и ищи тогда точь в точь

в одной папке всё равно 2 файлов с одинаковым названием и расширением быть не может.

[Яр|/||< (^_^)]

Огромное спасибо что помогли!

[vovk]

Там поменял немного, чтото подумал всё равно, при нахождении из процедуры выходим, зачем там булевая переменная...