
¡Rayos y retruecanos, radioactivo-man! [?]
¡Añademe a tus favoritos!
Contacto
Post al azar
RSS
BUSCAR
Mapa de la web
Por
Saiyine
el 2001-01-01 00:00:00 - Secciones: - 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. |
Otras entradas de la web que podrian interesarte:
. . .
Menuda oferta, ¿un pendrive Verbatim de 16Gb por solo 8,99€???
. . .
. . .
Varios ejemplos de lo que buscaban visitantes recientes:
. . .
Página web ©2001-2011 Saiyine descargada en s, con 6094725 visitas en total, hoy (de un total de 0 previstas).
. . .