VPF::Вывод данных из массива - Форум программистов

alekstav

Дата 19.12.2010, 21:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 30.11.2010

Репутация: нет
Всего: нет

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

Данкинг

Дата 19.12.2010, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Код


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;

--------------------

There's nothing left but silent epitaphs.

alekstav

Дата 20.12.2010, 19:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 30.11.2010

Репутация: нет
Всего: нет

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

Присоединённый файл ( Кол-во скачиваний: 3 )

_____________.rar 348,11 Kb

alekstav

Дата 26.12.2010, 07:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 30.11.2010

Репутация: нет
Всего: нет

Здравствуйте.
Который день бьюсь, не могу сделать так чтоб из ячейки
массива брался путь к файлу!
Прямой командой, когда указываешь путь
в листинге все открывает (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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 30.11.2010

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »