Delphi работа с файлами

[tanek]

Здраствуйте дорогие форумчанины.... Возник у меня такой вопросик.
Мне нужно сделать лабараторку на delphi. Нужно организовать поиск файла по слову или фразе в слове.
Как сделать поиск по файле я сделала. А вот как сделать поиск файлов по фразе я не могу понять.
Например: в каталоге есть 200 файлов. 100 файлов имеют имя primer1,primer2.....primer100 Если я ввиду фразу primer то на экран выведет 100 этих файлов
Помогите мне сделать эту процедуру......
Заранее спасибо....)))

[psycho-coder]

Если ты сделала, просто по имени файла, то и "по фразе" тоже сможешь.
Посмотри в справке функции Pos и PosEx,
Способ такой же, только чуть чуть, совсем малость отличается.

[tanek]

по имени все окозалось проще чем я думала... В Delphi есть функция FinedFirst... может не много ошиблась)))
А как сделать через pos?

[eoln]

Что-то не очень внятное

Сообщение от tanek

Нужно организовать поиск файла по слову или фразе в слове

Если имеется ввиду часть имени, то так

var
  SearchRec : TSearchRec;
begin
  if FindFirst('*primer*', faAnyFile, SearchRec) = 0 then
  repeat
    if (SearchRec.Attr and faDirectory) <> faDirectory then
      memo1.Lines.Add(SearchRec.Name);
  until FindNext(SearchRec) <> 0;FindClose(SearchRec)
end;

Или надо искать по содержимому файла?

[tanek]

нет не по содержимому а именно по фразе....
А что за тип TSearchRec?

[eoln]

Сообщение от tanek

А что за тип TSearchRec?

Обычный, из SysUtils. Содержит информацию о файле (имя, размер, аттрибуты и т.п.)

[tanek]

eoln Я попробывала ваш вариант кода, но он не работает. Программа по прежнему ищет файл только по всему слову ане по фразе....
помогите мне плз))))

[eoln]

У меня работает. В примере поиск всех файлов в текущей папке у которых в имени присутствует фраза PROJ
Меняем PROJ на PRIMER и будет счастье.
Файлы типа primer01, primer02 и т.д. должны быть в папке с программой

[tanek]

eoln и вправду работает.... наверное я ступила)))
а вот такой вопрос у меня к вам....
в строке

FindFirst('*PROJ*', faAnyFile, SearchRec)

вместо *PROJ* я хочу указать путь к папке...
я могу записать так:

FindFirst('c:\1\*PROJ*', faAnyFile, SearchRec)

??

[tanek]

eoln спасибо тебе еще раз ты мне очень помог)))