Вывод данных из массива

[alekstav]

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

[ArtGrek]

закинь в цикл чтение из фаила, а вместо пути постав содержимое ячеики из матрици

[MaxNik2009]

1. Конкретно что не получается сделать?
2. Где наработки?

[alekstav]

Добрый день.
Я все пытаюсь сделать так, чтоб программа открывала последовательно файлы txt из указанного каталога, пути которых предварительно были внесены в массив и искала в них введенное мной ключевое слово.
Но при выполнении процедуры редактор пишет:
Project raised exception class EFOpenError with message 'Cannot open file "". Системе не удается найти указанный путь.
Т.е. я не могу извлечь эти пути из массива… Пробовал создать глобальный массив, но что то не получается наверно.
Выкладываю свой проект.
Очень надеюсь, что вы мне поможете.

[alekstav]

Который день бьюсь, не могу сделать так чтоб из ячейки
массива брался путь к файлу!
Прямой командой, когда указываешь путь
в листинге все открывает - f:=('c:\3\1.txt').
А когда присваиваю не прямой путь к файлу, а ячейку массива,
например f := ('a_mas[2]') уже не может найти файл.
При этом если просишь вывести содержимое ячейки через ShowMessage (a_mas[2]); показывает путь…
Что за дела?

 var
  myFile : TextFile;
  text   : string;
  f: string;

 begin

  // f:=('c:\2\2.txt');  // в таком варианте открывает файл

  f:=('a_mas[2]');  // а вот если так написать то уже не открывает файл

  AssignFile(myFile,f);

  ShowMessage (a_mas[2]); 

  Reset(myFile);
     while not Eof(myFile) do
        begin
           ReadLn(myFile, text);
           ShowMessage(text);
        end;
      CloseFile(myFile);

 end;
.......

Вот как задан массив:

const
     SIZE = 500;
var

   a_mas:array[1..SIZE] of string;   // 
   n_mas: integer; // 
   i_mas: integer; //


begin
   n_mas:= Memo1.Lines.Count;
   for i_mas := 1 to n do
              a_mas[i_mas] := Form1.Memo1.Lines[i_mas-1];

end;

[Johnson]

 f:=('a_mas[2]');

У Вас на компе есть файл с названием 'a_mas[2]' ??? У меня лично нет, все файлы хранятся на дисках.

[alekstav]

Тут разобрался кавычки надо было убрать!
f:=('a_mas[2]');
f:=(a_mas[2]);