Hola dias pasados me dieron estas instrucciones
Código Delphi
[-]
Var
Lista:TStrings;
Begin
Lista:=TstringList.Create;
Lista.LoadFromFile('c:\archivo.txt');
Lista.AddStrings(Memo1.Lines);
Lista.SavetoFile('c:\archivo.txt');
Lista.Free
Lo ejecuta todo correctamente el unico problemas es q al abrir el archivo me repite la informacion por ejemplo en el memo esta
perro cafe
gato gris
caballo blanco
y en el achivo txt aparece
perro cafe
gato gris
caballo blanco
perro cafe
gato gris
caballo blanco
Ya me canse de buscar y no encuentro el error, me pordrian ayudar por favor.
Gracias