Поиск в FileListBox`e

[Angel86rus]

Здраствуйте. каким образом можно пи помощи функции FindFirst(), в FileListBoxе найти файлы ft*3d.txt , и при найденом файле выделять его в FileListBoxe.??

[Stilet]

uses             masks,
...
For i:=0 to FileListBoxе.Items.Count-1var i:integer;
begin
 for i:=0 to FileListBox1.Items.Count-1 do
  if MatchesMask(FileListBox1.Items[i],'ft*3d.txt') then begin
    FileListBox1.Items[i] - Это нужный файл
  end;
end;

А FindFirst к этому никакого отношения не имеет

[Angel86rus]

че та не пашет.

[[MoNAMur]]

все работает:
чтобы выделить файл, вместо

FileListBox1.Items[i] - Это нужный файл

напиши

FileListBox1.Selected[i] := true;

это выделит строку в FileListBox'e
а путь к файлу будет "лежать" в

FileListBox1.FileName

т.е. в итоге у меня получилось :

for i := 0 to FileListBox1.Items.Count - 1  do
  if MatchesMask(FileListBox1.Items[i],'ft*3d.txt') then
     begin
     FileListBox1.Selected[i] := true;  //  Здесь выделяется найденный файл
     showmessage(FileListBox1.FileName);  // здесь путь к нему
     end;

если нужно выделить несколько найденных файлов - думаю не составит труда изменить код...

[Stilet]

Че именно не пашет? Какие ошибки выдает?

[Angel86rus]

все понял, разобрался все заработало. спс.