append

(procedimiento)
Lenguaje: Pascal   (Versión: Turbo Pascal)

Abre un fichero existente para añadir en él

Declaración: procedure Append(var f: Text);

Detalles:
Abre un fichero existente para añadir en él

F es una variable de cualquier tipo de archivo, que se haya abierto con Reset, Rewrite o Append. El fichero externo correspondiente sea actualiza, se cierra y se liberan los recursos del sistema operativo para que puedan ser reutilizados.

...

F es una variable de archivo de texto que debe haber sido asociado a un fichero externo utilizando Assign.

Append abre el archivo externo existente con el nombre asignado F, y se produce un error si no existe un archivo externo con ese nombre. Si el fichero ya está abierto, se cierra y se vuelve a abrir. La posición del archivo actual se establece en el final del archivo.

Si existe algún carácter Ctrl+Z (ASCII 26) en el último bloque de 128 bytes del archivo, la posición del archivo actual se fija para sobrescribir el primer Ctrl+Z que haya en ese bloque.

Si a F se le asigna un nombre vacío, tras la llamada a Append, F pasará a referirse a la salida estándar.

Después de una llamada a Append, el fichero F sr convierte en sólo escritura, y el puntero de archivo se sitúa al final del archivo.

Con la directiva {$I-} , IOResult devuelve 0 si la operación se ha realizado correctamente, o bien otro número en caso contrario.

Ejemplo:

var F: Text;
begin
   Assign(F, 'PRUEBA.TXT');
   Rewrite(F);   { Creamos un fichero }
   Writeln(F, 'Texto original');
   Close(F);   { Cerramos, guardando cambios }
   Append(F);   { Añadimos más datos al final }
   Writeln(F, 'Texto añadido');
   Close(F);   { Cerramos, guardando cambios }
end.

Órdenes relacionadas:   assign   close   reset   rewrite  

  Volver al índice de la referencia o al apartado de Pascal