Открыть много *.txt файлов по очереди

[Devostator]

в папке лежат 606 txt файлов. Мне нужно открывать их по очереди и с каждым по отдельности работать (т.е. вытаскивать нужную инфу). В ручную я это буду делать пол года, хотелось бы это все автоматизировать...

[Serge_Bliznykov]

что значит - "открыть" ?!
в программе редакторе?!
так программа на Delphi тут не нужна, достаточно BAT файла.

или Вы под словами "открыть" что-то другое подразумеваете?

Кстати, Вы не сказали, какой смысл этих манипуляций? может быть "вытащить нужную инфу" можно в автоматическом режиме?..

[FaTaL]

В цикле делаешь поиск ТХТ файлов через FindFirst FindNext и там же делаешь что хочешь со своими файлами.

[Devostator]

Открыть - значит LoadFromFile();
Вытащить нужную инфу - if s.strings[i] = 'бла бла бла' then копируем в другой файл.

[FaTaL]

Ну я же написал что нужно сделать? Или Вам код написать?

Вот накидал код, думаю поймёшь:

procedure TForm1.btn1Click(Sender: TObject);
var
  sr : TSearchRec;
  i,j  : integer;
  sl : TSTringList;
  dir : string;
begin
  dir := 'C:\DB\';
  j := FindFirst (dir+ '*.txt', faAnyFile, sr);
    while j = 0 do
      begin
        sl := TStringList.Create;
        sl.LoadFromFile(dir + sr.Name);
        for i:=0 to sl.Count - 1 do
          begin
            if sl.Strings[i] = 'Искомая строка' then
              // Тут что хочешь делаешь со своей строкой
            break;
          end;
        FindNext (sr);
      end;
    FindClose (sr);
end;