Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Pessoal, segundo o procedimento abaixo, está aparecendo o erro I/O error 104, alguém poderia me ajudar a localizar a origem do erro?:procedure TFormPrincipal.BtnexecutaClick(Sender: TObject);varbox:integer;xobs,s,linha:string;arq: TextFile;beginif BoxCemigwin.Checked thenbeginRZ.DatabaseName:='CEMIGWIN2';RZ.TableName:='RZ'+EditRz.Text+'99.dbf';RZ.Open;box:=2;end;RZ.first;OpenDialog1.InitialDir:='C:\';OpenDialog1.Filename:='fdia61.*'; if OpenDialog1.Execute then AssignFile ( arq, OpenDialog1.FileName ); Reset ( arq ); while not RZ.eof do begin If (copy(RZOBSERV.value,1,1) = 'R') then begin if MessageDlg('Foi achado uma observação para ser retirada, deseja prosseguir?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then Readln(arq,linha); while not Eof(arq) do begin Lblstatus.Caption:='Percorrendo os registros...'; If (copy(linha,2,5) = RZCONTA.Value ) then delete(linha,28,32); closefile(arq); end; end; RZ.next; Application.ProcessMessages; end;RZ.Close;ShowMessage('Procedimento concluído, arquivo salvo!');end;
Carregando comentários...