открытие нескольких файлов

[valyan]

здравствуйте. проблема следующая: в папке есть несколько файлов, их нужно открыть для чтения все, не по одному. с одним файлом проблем нет.

var sr:TSearchRec;
FindRes:word;
f:file;
buf:array[1..65535] of Char;
begin
ListBox1.Clear;
FindRes:=FindFirst('C:\Documents and Settings\S k 8\Рабочий стол\Валян\практика\Новая папка\ctr\ufns\2008\07\03\T04?????.???',faAnyFile,sr);
 while FindRes=0 do
 begin
     ListBox1.Items.Add(SR.Name);
     FindRes:=FindNext(sr)
  end;
 AssignFile(f,'C:\Documents and Settings\S k 8\Рабочий стол\Валян\практика\Новая папка\ctr\ufns\2008\07\03\T0402530.282');
  reset(f,1);
  BlockRead(F, Buf, 1024);
  Form1.Memo1.Lines.Add(buf);
 FindClose(sr);
 CloseFile(f);
end;

[Serge_Bliznykov]

заводите столько переменных типа file, сколько файлов одновременно надо открыть....
а можно поинтересоваться - в чём изначально задача заключается - для чего файлы открывать ОДНОВРЕМЕННО?!

[valyan]

а если в папке немалое количество файлов(например 20)? ну открыл один файл-прочитал-сравнил с другим файлом, вывел разницу в их содержании

задача: автоматическая проверка соответствия реквизитов платежных документов администраторов поступлений в бюджет данным реестров направленных платежей, передаваемых в банк. во как

[Air]

Немного не до понял суть, но всё-таки.
Если не известно имя файла, то ищите, как находится файл сохраняете его адрес в массиве (кстати Вы так и делали), после как закончили поиск, с помощью цикла For перебираете массив и открываете все файлы на чтение (как в принципе и говорил Serge_Bliznykov), после (как цикл завершён) выполняете нужные действия с файлами.
И в чём проблема?

[Serge_Bliznykov]

Air, полностью с Вами согласен.

Сообщение от valyan

задача: автоматическая проверка соответствия реквизитов платежных документов администраторов поступлений в бюджет данным реестров направленных платежей, передаваемых в банк.

Смотрите. у Вас проблема в том, что, IMHO, Вы плохо представляете себе тот алгоритм проверки, который Вы хотите реализовать!..
Представьте себе - нет никакого компьютера, файлы - это просто картонная папка с вложенным в неё распечатанным текстом... есть рабочее место = рабочий стол, на котором Вы открываете папки и можете их читать/сравнивать/исправлять/писать новые листики в новые папки...
Так вот, как Вы лично будете сравнивать ? Откроете ВСЕ папки на столе? сразу? Но согласитесь, всё равно, даже в этом случае (хотя стол будет захламлен), Вы возьмёте ОДНУ папку, откроете её и будете проверять реквизиты (кстати, с чем сравнивать - есть эталон?) ? Проверите, решите правильные они или нет, если неправильные сделате какое-то действие... Возьмете следующую папку и т.д. и т.п... Или я ошибаюсь и всё совсем не так?... :-)

[valyan]

Serge_Bliznykov
да именно так.открываем сначала одну папку с файлами, читаем все файлы из этой папки и сравниваем поля открытых файлов с полями файла с которым сравниваем

[Stilet]

хм. Ябы делал так:
В цикле открываем каждый файл, копируем его в память и тупо сравниваем(скажем через CompareMem) с уже имеющимся в память файлом-источником.

[valyan]

Сообщение от Stilet

хм. Ябы делал так:
В цикле открываем каждый файл, копируем его в память и тупо сравниваем(скажем через CompareMem) с уже имеющимся в память файлом-источником.

открываем через AssignFile и reset, но там же по одному файлу, не пойму как сделать через цикл????

[Stilet]

смотри. Для простоты можно прикрутить в форме TFileListBox, в нем указать директорию где твои файлы лежат, и потом в цикле:

for i:=0 to FileListBox.items.count-1 do // открываем FileListBox.items[i] ну и его считываем

.

[valyan]

продолжая тему. в чем ошибка:
n:=ListBox1.Items.Count-1;
for i:=0 to n do
begin
AssignFile(f,ListBox1.Items.Strings[i]);
reset(f,1);
BlockRead(f, Buf, 1024);
FindClose(sr);
CloseFile(f);