sim estou fechando o arquivo, vou colocar todo código e a linha que
esta com a seta é que gera erro.
procedure TFexportar.BitBtnPesClick(Sender: TObject);
var
Path, NomArquivo: String;
Arquivo: TextFile;
begin
if RadioGroup1.ItemIndex = 0 then
begin
try
Screen.cursor:=CRSQLwait;
ExportaDados.Close;
ExportaDados.Parambyname('Pdata1').AsDate:= strtodate
(dateedit2.Text);
ExportaDados.Parambyname('Pdata2').AsDate:= strtodate
(dateedit3.Text);
ExportaDados.Parambyname('Pcodcolab').Asstring:=
glbcodigocolab;
if not (ExportaDados.Prepared)then
ExportaDados.prepare;
ExportaDados.open;
path:= 'C:\BaseAudi\Arquivos Exportados\';
if not DirectoryExists(Path) then
CreateDir(Path);
NomArquivo:= glbCodigocolab +' '+combobox1.text+'-
'+combobox2.text+ '.txt';
if not FileExists(Path + NomArquivo) then
FileCreate(Path + NomArquivo);
AssignFile(Arquivo, Path + NomArquivo);
----> Rewrite(Arquivo); // aqui é que da erro
Exportadados.First;
while not exportadados.Eof do
begin
Write ( arquivo, AjustaStr( ExportaDadosCENTRAL.AsString,
20));
Write ( arquivo, AjustaStr( ExportaDadosCoop.AsString,
20));
Write ( arquivo, AjustaStr( ExportaDadosUA.AsString,
20));
Write ( arquivo, AjustaStr( ExportaDadosArea.AsString,
20));
Write ( arquivo, AjustaStr( ExportaDadosData.AsString,
15));
Write ( arquivo, AjustaStr( ExportaDadosAno.AsString,
10));
Write ( arquivo, AjustaStr( ExportaDadosHoras.AsString,
10));
Write ( arquivo, AjustaStr( ExportaDadosColab.AsString,
16));
Write ( arquivo, AjustaStr( ExportaDadosOBS.AsString,
300));
WriteLn ( arquivo );
exportadados.Next;
end;
CloseFile ( arquivo );
Showmessage('Exportação concluída.');
finally
screen.cursor:=crdefault;
end;
end
else
--- Em [EMAIL PROTECTED], "Eduardo Galvão" <[EMAIL PROTECTED]>
escreveu
> Olá,
>
> >Não é este o problema, ja'fiz isto e continua dando erro.
> >Parece que ele não atualiza a pasta antes de buscar o arquivo e ai
> >ele nao o encontra . Só depois de dar um f5 com a aplicação fechada
> >que resolve.
>
> Você está dando um arquivo.closefile quando termina a gravação
> no arquivo ??
>
> Se não fizer isto, só vai funcionar da 1a vez. Na 2a vez,
> o arquivo vai estar aberto e vai dar um erro.
>
> Saudações,
> Eduardo Paci Galvão
> Engenheiro UFMG 1990
> Belo Horizonte - Brasil
> www.egalvao.com.br
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
