home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / EXTFN.ARK / EXTFNT.PAS < prev   
Pascal/Delphi Source File  |  1989-09-27  |  1KB  |  45 lines
  1. program ExtendedFileNameTest ;
  2. {$IEXTFN.UNT}
  3.  
  4. var
  5.    File1          , File2           :            Text ;
  6.    FileName1      , FileName2       :   FullFileNames ;
  7.    FileDescriptor1, FileDescriptor2 : FileDescriptors ;
  8.    I : Integer ;
  9.  
  10. procedure DumpDescriptor( FileDesc : FileDescriptors ) ;
  11. begin
  12.    with FileDesc do
  13.      Write( 'Drive=', Drive, ', User=', User, ',  FileName=', Name, '.', Ext ) ;
  14.    WriteLn( '; FullName=', ExpandFileName(FileDesc, DUNE_Format) ) ;
  15. end ;
  16.  
  17. begin
  18.    InitFileNameUnit ;
  19.    FileName1:= '3:user3.qqq' ;
  20.    FileName2:= '5:user5.qqq' ;
  21.  
  22.    SplitFileName( FileDescriptor1, FileName1 ) ;
  23.    DumpDescriptor( FileDescriptor1 ) ;
  24.    RegisterFile ( FileDescriptor1, File1 ) ;
  25.  
  26.    SplitFileName( FileDescriptor2, FileName2 ) ;
  27.    DumpDescriptor( FileDescriptor2 ) ;
  28.    RegisterFile ( FileDescriptor2, File2 ) ;
  29.  
  30.    Assign ( File1, ExpandFileName(FileDescriptor1,DNE_Format) ) ;
  31.    Rewrite( File1 ) ;
  32.    Assign ( File2, ExpandFileName(FileDescriptor2,DNE_Format) ) ;
  33.    Rewrite( File2 ) ;
  34.  
  35.    For I:= 1 to 1000 do
  36.     begin
  37.      WriteLn( File1, 'THIS IS LINE ', I ) ;
  38.      WriteLn( File2, 'this is line ', I ) ;
  39.     end ;
  40.  
  41.    Close( File1 ) ;
  42.    Close( File2 ) ;
  43.    UnInitFileNameUnit ;
  44. end.
  45.