Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Вывод данных из массива

Автор: alekstav 19.12.2010, 21:00

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

Автор: Данкинг 19.12.2010, 21:48

Код


var DlinaMassiva,i:integer;
 Res:TStringList;
begin
 DlinaMassiva:=10;
 Res:=TStringList.Create; 
for i:=1 to DlinaMassiva do
 begin
  res.loadfromFile(mas[i]);
  ....
 end;
Res.Free;
end;

Автор: alekstav 20.12.2010, 19:46

Данкинг у меня не чего не получается совместить Ваш код со своей программой. Может Вы мне поможете? Я новичок в программировании, поэтому очень надеюсь на Вашу помощь. В архиве лежат обе программы.
По моей задумке после введения ключевого слова и нажатия на кнопку
поиск программа должна последовательно открывать файлы txt (их название лежат в массиве) и искать в них ключевое слово. Те файлы в которых ключевое слово встретилось
вывести в окно MEMO2.

Автор: alekstav 26.12.2010, 07:56

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

Код


 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;

Автор: alekstav 26.12.2010, 09:42

Всем спасибо разобрался... надо было кавычки убрать f:=('a_mas[2]'); -> f:=(a_mas[2]); теперь запускается файл.