home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / files / fileobj / testfile.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1989-07-11  |  1.1 KB  |  43 lines
  1. Program TestFile;
  2.  
  3. {
  4.  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  5.  TESTFILE.PAS
  6.  
  7.    Demonstration program for FileObj unit.  This program uses a command
  8.    line parameter to initialize a FileObjType variable and print
  9.    information:
  10.  
  11.           testfile <filename>
  12.  
  13.  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  14. }
  15.  
  16. Uses FileObj;
  17.  
  18. Var
  19.   FObject : FileObjType;
  20.  
  21. Begin
  22.   FObject.Init ( ParamStr ( 1 ) );
  23.   With FObject do
  24.   Begin
  25.     Writeln;
  26.     If FileExists then
  27.       Writeln ( 'File does exist.....')
  28.     Else
  29.       Writeln ( 'File not found.....');
  30.     Writeln ( 'Full file name:  ', GetPath );
  31.     Writeln ( 'Drive         :  ', GetDrive );
  32.     Writeln ( 'Directory     :  ', GetDir );
  33.     Writeln ( 'Base name     :  ', GetBaseName );
  34.     Writeln ( 'Extension     :  ', GetExt );
  35.     Writeln ( 'File Length   :  ', GetLength );
  36.     WriteLn ( 'File date     :  ', FGetDate );
  37.     WriteLn ( 'File time     :  ', FGetTime );
  38.     Writeln ( 'File attribute:  ', FGetAttr );
  39.     Writeln ( 'Attrib string :  ', FGetAttrStr );
  40.   End;
  41. End.
  42.  
  43.