erase

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

Borra un fichero

Declaración: procedure Erase(var F);

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

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

No debería usarse Erase en un fichero abierto.

Ejemplo:

var
  fich:  file;
  nombre: string;
  letra: char;
begin
  Write('Nombre del fichero? ');
  Readln(nombre);
  Assign(fich, nombre);
  {$I-}
  Reset(rich);
  {$I+}
  if IOResult <> 0 then
    Writeln('No existe el fichero ', nombre)
 else
  begin
    Close(fich);
    Write('Borrar ', nombre, ' (S/N) ? ');
    Readln(letra);
    if UpCase(letra) = 'S' then
      Erase(fich);
  end;
end.

Órdenes relacionadas:   rename  


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