home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PJ8_3.ZIP / DIRTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1990-02-15  |  644b  |  27 lines
  1. (* dirtest.pas -- (c) 1990 by Tom Swan *)
  2.  
  3. program dirtest;
  4. uses crt, ustritem, udir;
  5. var
  6.    dir : directory;
  7.    lastKey : char;
  8.    name : fileNameStr;
  9.    flag : Boolean;
  10. begin
  11.    clrscr;
  12.    dir.init( '*.*', 10, 3, 40, 18 );
  13.    dir.setAll( FALSE );
  14.    dir.selectItems( [], lastKey );
  15.    gotoxy( 1, 25 );
  16.    writeln( 'Selected files:' );
  17.    dir.firstSelectedItem( flag );
  18.    while not flag {no items or past list head} do
  19.    begin
  20.       name := strItemPtr( dir.currentItem )^.getString;
  21.       write( name, ' ' : 20 - length( name ) );
  22.       dir.nextSelectedItem( flag )
  23.    end;
  24.    writeln;
  25.    dir.done
  26. end. { dirtest }
  27.