Erro na manipulção de arquivo I/O error 113

Delphi

21/02/2011

Erro na manipulção de arquivo                 I/O error 113

A condição que coloquei não escreve no arquivo vejam

 
var
  nomearquivo: String;
  arquivo: TextFile;
begin
  nomearquivo := Form1.Edit1.Text; // To pegando um campo de outro form // form de login
  if a = 2 then
  begin
    AssignFile(arquivo, nomearquivo + '.txt'); // já tentei colocar aqui o nome do arquivo só para ver se o campo  //que eu tava pegando do outro furmulário estava errado mais dá erro mesmo assim

    Append(arquivo); // já tentei sem esta parte não func
    Write(arquivo); //abre o arquivo para escrita
    Write(arquivo, Edit1.Text + '=' );

    Edit1.Clear;
  end;
  Closefile(arquivo); //fecha o handle de arquivo


Ai dá este erro I/O error 113
JÁ DEPUREI COM F7 PARA VER ONDE ERA O ERRO É NESTA PARA QUE ESTÁ DE AZUL NO CÓDIGO
O PROGRAMA NÃO ESCREVE MAIS ABRE O ARQUIVO CERTO

...AssignFile(arquivo, nomearquivo + '.txt');
   Append(arquivo);
...
end;

E vem direto para o end;
Eu uso este mesmo arquivo para ler o login e senha no form do login e fecho este arquivo lá tem algum problema
Ewerton Rodrigues

Ewerton Rodrigues

Curtidas 0

Respostas

Ewerton Rodrigues

Ewerton Rodrigues

21/02/2011

ISTO É ERRO  DE VC TENTAR ABRI ARQUIVO SEM ELE TA FECHADO OU ALGUMA COISA TA ERRAD COMO ARQUIVO ABERTO NA HORA QUE ERA PARA TA FECHADO A CONDIÇÃO PARA FECHAR OU ABRI O ARQUIVO TXT NÃO BATE

FICA AI A RESPOSTA PARA AS PESSOAS QUE TIVEREM O MESMO ERRO POIS NÃO ACHEI NADA NO GOOGLE E NADA AQUI
DESCOBRI SOZINHO COMPILANDO E TESTANDO TENHO UMA APLICAÇÃO HOJE DE INSERÇÃO E LEITURA DE DADOS EM TXT FILÉ POIS TÔ AINDA TRABALHANDO NELA MAIS JÁ TÁ QUASE PRONTA


GOSTEI 0
José

José

21/02/2011

Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
GOSTEI 0
POSTAR