Añadir lineas a un fichero de texto

Por Saiyine  el 2001-01-01 00:00:00 - Secciones:  DELPHI  - Enlace permanente: 432

procedure LineaMas(fichero,cadena : string);
var
f : textfile;
begin
assignfile(f,fichero);
if fileexists(fichero) then append(f) else rewrite(f) ;
writeln(f,cadena);
closefile(f);
end;

Facil ¿eh? Para llamarlo en tu programa podrias hacer algo por ejemplo:

...
LineaMas('estado del programa.log','Leyendo del CD rom');
...

Atencion, si el fichero no existe lo crea con esa linea, y si existe, añade la linea al final. Esto se debe a que si intentas añadir al final de un fichero que no existe, el programa da error.

Emmanuel BOUGEARD(03/04/2004, 15:41) if fileexists(fichero) then append(f) else rewrite(f) ; cuando hay un fichero, 'append', no lo contrario!

Saiyine(04/04/2004, 04:17) Mil disculpas, lo corrijo ahora mismo.

1000 

juxtofk (2007-03-02 03:31:42) hola bueno no soy muy bueno con delphi y ocupo un programa que me evalue cadenas y que haga operaciones con de interseccion,union, complementos,distribucion etc quisiera me facilitaras el codigo o un programa que implemente eso