Gravar em Arquivo Texto

[Spider Masters 0]

Olá amigos bom dia,

 

Peço a ajuda de vcs para solucionar uma dúvida.

 

Utilizo a seguinte rotina para gravar dados em um arquivo texto.

 

varArq  : TextFile;Path : String;line_data : StringBegin      line_data := 'Qualquer Valor';    Path :=  ExtractFilePath(Application.ExeName);    If (FileExists(Path + '\Arquivo.txt')) Then        Begin            AssignFile(Arq, Path + '\Arquivo.txt');            ReWrite(Arq);            Writeln(Arq,line_data);            CloseFile(arq);        End;End;

O problema é que não posso apagar as linhas que já existem, pois o ReWrite apaga, como posso gravar sem precisar do ReWrite? Pois sem o ReWrite ocorre um erro.

 

Obrigado pela força,

 

Abraços.

[marcio.theis 3]

Tente da seguinte forma:

 

 

Beginline_data := 'Qualquer Valor';Path := ExtractFilePath(Application.ExeName);If (FileExists(Path + '\Arquivo.txt')) Then	Begin	AssignFile(Arq, Path + '\Arquivo.txt');	{$I-}	Append(Arq);	{$I+}	Writeln(Arq,line_data);	CloseFile(arq);	End;End;

Usando o comando Append();

[Spider Masters 0]

Obrigado pela ajuda, funcionou perfeitamente.Abraços,Spider

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif