I/O error 105 (Arquivo TXT)

Delphi

25/02/2005

Estou precisando salvar uns parametros de configuração do meu programa num arquivo TXT e uso o código abaixo. Este código esta em um botao e o arquivo existe no C:\

procedure T_conf.BitBtn1Click(Sender: TObject);
var TXT:TextFile;
    //S:STRING;
begin
If FileExists(´C:\CPD.txt´) then
   begin
   try
      AssignFile(TXT,´C:\CPD.txt´);
      Reset(TXT);
      Writeln(TXT, Edit1.text);
   FINALLY
         CloseFile(TXT);
   end;
   END;
END;


Mas quando clico aparece o seguinte erro: I/O error 105. Alguem poderia ame ajudar?

Obrigado
Daniel Miranda Cruz


Daniel_mc

Daniel_mc

Curtidas 0

Respostas

Jc_analista

Jc_analista

25/02/2005

coloque append(arq) no lugar de reset(arq).

reset (arq) = abre o arquivo para leitura
append (arq) = abre o arquivo para escrita e posiciona-se na ultima linha.
rewrite(arq) = reescreve o arquivo (limpa o que esta la dentro)


GOSTEI 0
Daniel_mc

Daniel_mc

25/02/2005

Beleza e como eu posiciono na 1ª linha?


GOSTEI 0
Jc_analista

Jc_analista

25/02/2005

se vc usar o rewrite vc limpa o arquivo e posiciona na primeira linha


GOSTEI 0
Massuda

Massuda

25/02/2005

A única forma de você adicionar texto novo no início de um arquivo já existente é ler o conteúdo do arquivo, voltar para o início do arquivo, escrever o texto novo e escrever o conteúdo original de volta.

Se o seu arquivo for algo do tipo log de eventos, considere a possibilidade de incluir o texto novo no final do arquivo (append).


GOSTEI 0
Daniel_mc

Daniel_mc

25/02/2005

Muito Obrigado, solucionaram meu problema!


GOSTEI 0
POSTAR