Уважаемые спецы помогите решить проблемку.
Задача следующая:
При анализе документа я создаю столько файлов сколько у меня филиалов. затем раскидываю данны по анализу. Может получиться так что некоторые созданые файлы окажуться пустые. Вопрос заключается в следующем. Каким образом мне их (пустые файлы) лучше ликвидировать, удалить?
Проца обработки файлов
Код:
AssignFile(F,Param.PatchIN+InFile);
Reset(F);
SetLength(Fn,Param.count);
for I := 0 to Param.count - 1 do
begin
AssignFile(Fn[i],Param.PatchIN+NewFileName(InFile,i));
Rewrite(Fn[i]);
end;
// обработка
...
// конец обработки
for I := 0 to Param.Count - 1 do
CloseFile(Fn[i]);
CloseFile(F);
DeleteFile(PChar(Param.PatchIN+InFile));