Salvar em arquivo .txt sem apagar o que já existe

Delphi

16/08/2004

Como salvar o centeúdo de uma EditBox em um arquivo .txt, mas sem apagar o que já está salvo, quero salvar no fim do arquivo.

Valeu!


Vispo

Vispo

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

16/08/2004

Lista: TStringList;
Lista := TStringList.Create;

Lista.LoadFOrmFile(c:\teste.txt);
Lista.itens.add(edit1.text);
Lista.SaveToFile(´c:\teste.txt´)



GOSTEI 0
Paulo_amorim

Paulo_amorim

16/08/2004

Olá

Você também pode trabalhar com uma variável TextFile, e na hora de abrir utilize o procedimento Reset. Assim ele irá posicionar o cursor no fim do arquivo.

p.ex
var.
txt: TextFile;
begin
AssignFile(txt, ´C:\Teste.txt´);
try
  Reset(txt);
  Writeln(txt, ´linha de teste´);
finally
  CloseFile(txt);
end;
end;


Espero que ajude
Ate+


GOSTEI 0
POSTAR