reset

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

Abre un fichero existente

Declaración: procedure Reset(var F [: File; Recsize: Word ] );

Detalles:
Abre un fichero existente

F es una variable de cualquier tipo de archivo, que se haya asociado a un fichero físico usando "Assign".

RECSIZE es una expresión opcional de tipo Word, que se puede especificar sólo si F es un archivo sin tipo, y en ese caso, RecSize especifica el tamaño del registro que hay que usar en las transferencias de datos. Si se omite RecSize, se usa un tamaño de registro por defecto de 128 bytes.

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

Si se asigna un nombre vacío, como con Assign ( F,') , F pasará a referirse a la entrada estándar.

Si F es un archivo de texto, se convierte en sólo lectura.

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

Ejemplo:
function FileExists(nombre: String): Boolean;
  {Función boolean que devuelve True si un fichero existe,
   o False en caso contrario }
var
  F: file;
begin
  {$I-}
  Assign(F, nombre);
  FileMode := 0;  ( Modo de sólo lectura }
  Reset(F);
  Close(F);
  {$I+}
  FileExists := (IOResult = 0) and (nombre <> '');
end;  { FileExists }
 
{ Cuerpo del programa }
begin
  if FileExists(ParamStr(1)) then {Nombre en línea de comandos}
    Writeln('Existe!')
  else
    Writeln('Fichero no encontrado');
end.
 

Órdenes relacionadas:   append   assign   close   rewrite   truncate  


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