Файлы

[DeDoK]

Есть папка, известно что в неи есть файл. точное имя файла неизвестно. но в имени этого файла есть слово yahoo. задание следующее найти этот файл и узнать его точное имя и поместить имя в переменную типа string

помогите плз...

[KORN]

procedure TForm1.Button1Click(Sender: TObject);
Var SR:TSearchRec; // поисковая переменная
    FindRes:Integer; // переменная для записи результата поиска
begin
ListBox1.Clear; // очистка компонента ListBox1 перед занесением в него списка файлов

// задание условий поиска и начало поиска
FindRes:=FindFirst('c:\delphi\*.*',faAnyFile,SR); 

While FindRes=0 do // пока мы находим файлы (каталоги), то выполнять цикл
   begin
      ListBox1.Items.Add(SR.Name); // добавление в список название найденного элемента
      FindRes:=FindNext(SR); // продолжение поиска по заданным условиям
   end;
FindClose(SR); // закрываем поиск
end;

и далее ищи строку в которой встречается нужное тебе слово и присваивай переменной

[capta1n]

FindRes:=FindFirst('c:\delphi\*.*', faAnyFile,SR);

можно даже вот так написать маску *yahoo*.*, чтобы меньше итераций было

[KORN]

логично, я чет об этом не подумал...