Collection of Education/collectionofeducationcarat1997.iso/COMPUSCI/TOT11.ZIP/TOTDEM11.ZIP/DEMDR4.PAS

Pascal/Delphi Source File | 1991-02-11 | 405b | 21 lines

program DemoDirFour;
{demls4 - a user sortable directory listing}

Uses DOS, CRT,
     totFAST, totLIST;

Var
   ListWin:  ListDirSortObj;

begin
   Screen.Clear(white,'░'); {paint the screen}
   Screen.WriteCenter(25,white,' Press S or Right Mouse Button for Sort Options ');
   with ListWin do
   begin
      Init;
      ReadFiles('*.*',AnyFile);
      Go;
      Done;
   end;
end.