A todos que ajudaram , informo que o amigo Daniel de uma outra lista
matou o problema:
para que quizer lá vai..
procedure TFexportar.BitBtnPesClick(Sender: TObject);
var
Path, NomArquivo: String;
Arquivo: TextFile;
Handle: Integer;
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
Handle := FileCreate(Path + NomArquivo);
fileclose(handle);
AssignFile(Arquivo, Path + NomArquivo);
Rewrite(Arquivo);
Exportadados.First;
while not exportadados.Eof do
--- Em [EMAIL PROTECTED], "denjabr" <[EMAIL PROTECTED]> escreveu
>
> 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
