Fórum Erro na abertura de arquivo texto #288214

Para imprimir recibos, e jogo o conteudo dos pagamentos em um arquivo texto, para que ele possa ser lido por uma DLL que imprimir o recibo (uso dll, pois cada cliente pede o recibo de um jeito, sendo assim, sõ precisa mudar a DLL).

as linhas de codigo são as seguintes.

Var
FExt:TextFile;
Begin
AssignFile(FExt, ´c:\Extrato.txt´);
Rewrite(FExt);

Write(FExt, Dm.TaempresaNome.value);
Writeln(FExt);
Write(FExt, Dm.TaempresaEndereco.value);
Writeln(FExt);
Write(FExt, Dm.TaempresaFone.value);
Writeln(FExt);

........... //aqui vai mais outras linhas armazenando o conteudo

CloseFile(FExt);



acontece, que depois da impressao de um certo numero de recibos.. Da erro na criaçao deste arquivo texto.. Só voltando a imprimir depois que fechar o sistema e abrir novamente..

Olhando no windows, em quanto estava com erro, vi que o arquivo extrato, estava aberto e não podia ser apagado..

depois que sai do sistema, o problema é corrigido..


Alguem tem alguma ideia do que pode estar acontecendo.