Array
(
)

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

Vispo
   - 16 ago 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!


Lucas Silva
   - 16 ago 2004

#Código

Lista: TStringList;
Lista := TStringList.Create;

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



Paulo_amorim
   - 16 ago 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
#Código

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+