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