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
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:=CRSQL
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 é 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.
--- Em [EMAIL PROTECTED], "Depto de Informatica"
<[EMAIL PROTECTED]> escreveu
> Pode se
4 matches
Mail list logo