|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.07.2008, 22:01 | #1 |
Регистрация: 16.07.2008
Сообщений: 5
|
открытие нескольких файлов
здравствуйте. проблема следующая: в папке есть несколько файлов, их нужно открыть для чтения все, не по одному. с одним файлом проблем нет.
Код:
Последний раз редактировалось Stilet; 17.07.2008 в 08:43. |
16.07.2008, 22:50 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
заводите столько переменных типа file, сколько файлов одновременно надо открыть....
а можно поинтересоваться - в чём изначально задача заключается - для чего файлы открывать ОДНОВРЕМЕННО?! |
16.07.2008, 22:59 | #3 |
Регистрация: 16.07.2008
Сообщений: 5
|
а если в папке немалое количество файлов(например 20)? ну открыл один файл-прочитал-сравнил с другим файлом, вывел разницу в их содержании
задача: автоматическая проверка соответствия реквизитов платежных документов администраторов поступлений в бюджет данным реестров направленных платежей, передаваемых в банк. во как Последний раз редактировалось Stilet; 17.07.2008 в 08:38. |
16.07.2008, 23:52 | #4 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
Немного не до понял суть, но всё-таки.
Если не известно имя файла, то ищите, как находится файл сохраняете его адрес в массиве (кстати Вы так и делали), после как закончили поиск, с помощью цикла For перебираете массив и открываете все файлы на чтение (как в принципе и говорил Serge_Bliznykov), после (как цикл завершён) выполняете нужные действия с файлами. И в чём проблема?
Всё гениальное - просто!
|
17.07.2008, 09:22 | #5 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Air, полностью с Вами согласен.
Цитата:
Представьте себе - нет никакого компьютера, файлы - это просто картонная папка с вложенным в неё распечатанным текстом... есть рабочее место = рабочий стол, на котором Вы открываете папки и можете их читать/сравнивать/исправлять/писать новые листики в новые папки... Так вот, как Вы лично будете сравнивать ? Откроете ВСЕ папки на столе? сразу? Но согласитесь, всё равно, даже в этом случае (хотя стол будет захламлен), Вы возьмёте ОДНУ папку, откроете её и будете проверять реквизиты (кстати, с чем сравнивать - есть эталон?) ? Проверите, решите правильные они или нет, если неправильные сделате какое-то действие... Возьмете следующую папку и т.д. и т.п... Или я ошибаюсь и всё совсем не так?... :-) |
|
17.07.2008, 10:45 | #6 |
Регистрация: 16.07.2008
Сообщений: 5
|
Serge_Bliznykov
да именно так.открываем сначала одну папку с файлами, читаем все файлы из этой папки и сравниваем поля открытых файлов с полями файла с которым сравниваем |
17.07.2008, 10:56 | #7 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
хм. Ябы делал так:
В цикле открываем каждый файл, копируем его в память и тупо сравниваем(скажем через CompareMem) с уже имеющимся в память файлом-источником.
I'm learning to live...
|
17.07.2008, 11:05 | #8 |
Регистрация: 16.07.2008
Сообщений: 5
|
|
17.07.2008, 11:17 | #9 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
смотри. Для простоты можно прикрутить в форме TFileListBox, в нем указать директорию где твои файлы лежат, и потом в цикле:
Код:
I'm learning to live...
|
17.07.2008, 15:22 | #10 |
Регистрация: 16.07.2008
Сообщений: 5
|
продолжая тему. в чем ошибка:
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); |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Скопировать по одной ячейке из нескольких файлов в один | Nimo | Microsoft Office Excel | 2 | 09.08.2008 09:25 |
Копирование нескольких файлов + ProgressBar | AngelOfDeath | Общие вопросы Delphi | 4 | 28.05.2008 14:57 |
Как получить имена нескольких файлов выделенных в OpenDialog | Comer_Jus | Общие вопросы Delphi | 2 | 26.05.2008 19:47 |
открытие файлов | Ensoph | Общие вопросы Delphi | 5 | 31.03.2008 20:45 |
Перенос нескольких файлов посредством VBA | Victor | Microsoft Office Excel | 5 | 09.12.2007 23:25 |