Fórum I/O error 105 (Arquivo TXT) #270173

25/02/2005

0

Delphi

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:\

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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

Responder

Posts

25/02/2005

Jc_analista

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)


Responder

Gostei + 0

25/02/2005

Daniel_mc

Beleza e como eu posiciono na 1ª linha?


Responder

Gostei + 0

25/02/2005

Jc_analista

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


Responder

Gostei + 0

25/02/2005

Massuda

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).


Responder

Gostei + 0

25/02/2005

Daniel_mc

Muito Obrigado, solucionaram meu problema!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar