[FreeUser]

Есть более-менее работающая программа. Обрабатывает текстовые файлы(вносит комментарии в конец файла). Как сделать так, чтобы программа умела обрабатывать пакеты таких файлов? Т.е. открыл opendialog'ом 10 файлов и она к каждому добавила?

Код пожалуйста в студию.

Заранее всем благодарен.

[Phedor]

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

Есть более-менее работающая программа. Обрабатывает текстовые файлы(вносит комментарии в конец файла). Как сделать так, чтобы программа умела обрабатывать пакеты таких файлов? Т.е. открыл opendialog'ом 10 файлов и она к каждому добавила?

Код пожалуйста в студию.

Заранее всем благодарен.

Код:

for i:=0 to OpenDialog.Files.Count-1 do
begin
  AssignFile(f, OpenDialog.Files[i]);
  ...
  CloseFile(f);
end;

[FreeUser]

Неа. Не дает opendialog выбирать файлы. Только по 1.

[FreeUser]

И при таком доступе разве мне удасться загрузить пачку очередью в Memo?
Задачей является - выбор многих файлов для впихивания по 1, в порядке очереди.

[FreeUser]

Код:

memo1.Lines.Clear;
Opendialog1.Execute;
for i:=0 to opendialog1.Files.Count-1 do begin
AssignFile(f, OpenDialog1.Files[i]);
if opendialog1.FileName <> '' then
memo1.Lines.LoadFromFile(OpenDialog1.Files[i])
...
Работа с содержимым Memo1.
...
CloseFile(f);
end; 

После этого вылетает ошибка i/o 103. Не подскажете в чем проблема?

[lmikle]

проблема в том, что тебе не надо открывать файл, т.к. LoadFromFile сама все сделает. Убираешь из кода строки:

AssignFile(f, OpenDialog1.Files[i]);
if opendialog1.FileName <> '' then
CloseFile(f);

А строку

Opendialog1.Execute;

меняешь на

If Opendialog1.Execute Then
Begin
...
End;

Должно получиться что-то типа:

Код:

memo1.Lines.Clear;
if Opendialog1.Execute then
begin
  for i:=0 to opendialog1.Files.Count-1 do begin
    memo1.Lines.LoadFromFile(OpenDialog1.Files[i])
    ...
    Работа с содержимым Memo1.
    ...
  end;
end; 

[FreeUser]

Opendialog не дает выделить несколько файлов. Не дает и все

[FreeUser]

allow multi нашел. сорри

[FreeUser]

Так. Все исправил. Выделил пачку 8шт. На выхлопе вместо 8 обработанных - 1. Имена у всех рандомом ставятся, так что перезапись исключена.

[Drozh]

тоесть ты хочешь объеденить все файлы в один?

[FreeUser]

Нет. У меня программа обрабатывает txt файл. 1 выбрал - 1 обработала. Теперь надо прикрутить к программе работу не с 1 файлом, а с группой. Выбрал 10 штук, она 10 и обработала.

[Drozh]

lmikle все объяснил уже...

[FreeUser]

Блин, сорри еще раз..После do - begin забыл воткнуть. СПАСИБО огромное! Все работает!