
Captulo 28 - outras funes com arquivos

ERASE - este procedimento permite que seja deletado um arquivo em disco
e para tanto, devemos associar este arquivo a um nome interno. O arquivo 
no poder estar aberto no momento que for eliminado. Sua sintaxe:
ERASE (VAR <arq>);
Vejamos um exemplo:
PROGRAM teste_erase;
VAR 
  arq : FILE;
  nomearq : STRING[67];
BEGIN
  WRITE (entre com o nome do arquivo a ser, eliminad);
  READLN (nomearq);
  ASSIGN (arq, nomearq);
  {$I-}
  RESET (arq);
  {$I+}
  IF IORESULT <> 0
    THEN
      WRITELN (arquivo no exist)
  ELSE
    BEGIN
      CLOSE (arq);
      ERASE (arq);
      WRITELN (arquiv, nomearq, deletad);
    END;
  READLN;
END.

RENAME - procedimento que nos permite renomear um arquivo e para tanto, 
este deve ser associado ao nome interno do programa, o nome do arquivo do 
disco, e tambm deve estar fechado. Sua sintaxe:
RENAME (VAR <arq>; novonome : STRING);
Exemplo:
PROGRAM teste_rename;
USES CRT;
VAR
  arq : FILE;
  ch : CHAR;
  novonome, 
  novoarq : STRING[67];
BEGIN
  WRITE(Digite o nome do arquivo a ser renomead);
  READLN(nomearq);
  ASSIGN(arq,nomearq);
{$I-}
  RESET (arq);
  {$I+ }
  IF IORESULT <> 0
    THEN
     WRITELN (arquivo no exist);
  ELSE
    BEGIN
      WRITE (digite o novo nome do arquiv);
      READLN (novonome);
      CLOSE (arq);
      RENAME (arq, novonome);
      WRITELN (o arquiv, nomearq, foi renomeado par, novonome);
    END;
  WRITE (tecle algo para continuar);
  REPEAT
  UNTIL READKEY <> #0;
END.  
