Erro rewrite()

Delphi

08/07/2014

procedure TfrmIBGE.IniciarArquivo(vpNomeArquivo : String);
begin
viNomeArq := viCaminho + vpNomeArquivo+'.TXT';
viNomeArqAnterior := viCaminho + vpNomeArquivo+'_OLD.TXT';

AssignFile(viArquivo, viNomeArq);
if FileExists(viNomeArq) then
begin
DeleteFile(PChar(viNomeArq));
Rewrite(viArquivo);
end
else
Rewrite(viArquivo);
end;


Olá pessoal estou com um problema aqui ao executar esta rotina, quando passa pela segunda as vez da erro no rewrite(viArquivo),
após passar pelo DeleteFile() logo acima .

Alguém pode me ajudar ?
Márcio Pereira

Márcio Pereira

Curtidas 0

Respostas

Joel Rodrigues

Joel Rodrigues

08/07/2014

Rapaz, você está tentando reescrever em um arquivo que foi excluído. Para usar o rewrite, o arquivo precisa existir e estar aberto pela aplicação.
GOSTEI 0
POSTAR