Hola
!! Se guardaba xa todo entero y me lo repetia.
ej:
1º bloke1
2º bloke2.
pero me grababa .
blok1
bloke1
bloke2
Bueno lo tengo ya solucionado, gracias. Cuando apretaba al boton me hacia un seguimiento y me grababa todas las lineas en el archivo. Pero guardaba el memo entero. Entonces he optado por guardarlo linea a linea con el append.
Código Delphi
[-]
procedure TForm1.GrabarEnArchivo(AsString : String; Nombre : TFileName);
var
F : TextFile;
begin
assignfile(F,Nombre);
if FileExists(Nombre)
then append(F)
else
rewrite(F);
writeln(F,AsString);
closefile(F);
end;
De todas formas lo que me has puesto me ha servido de mucho. Porque no es q controle esto como puedes ver
y he aprendido cosillas interesantes. Muchas gracias.