home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / renfile.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  405 b   |  20 lines
  1. unit RenFile;
  2.  
  3. interface
  4. uses DelFile;
  5. procedure ReNameFile( OldName, NewName: string);
  6.  
  7. implementation
  8.  
  9. procedure ReNameFile;
  10. var f:           text;
  11.     Err:         integer;
  12. begin
  13. DeleteFile(NewName);
  14. {$I-}    assign( f, OldName);    {$I+}  Err := ioresult;
  15. {$I-}    close(f);               {$I+}  Err := ioresult;
  16. {$I-}    rename(f, NewName);     {$I+}  Err := ioresult;
  17. end;
  18.  
  19. end.
  20.