Power-Programmierung/CD1.mdf/pascal/library/dos/tjock/tot/demo/demdr4.pas

Pascal/Delphi Source File | 1991-02-11 | 405 b | 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.