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

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

Respostas

16/08/2004

Lucas Silva

Lista: TStringList;
Lista := TStringList.Create;

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



Responder Citar

16/08/2004

Paulo_amorim

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+


Responder Citar