home *** CD-ROM | disk | FTP | other *** search
/ Point Programming 1 / PPROG1.ISO / pascal / swag / oop.swg / 0004_FILEDLG1.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  675 b   |  38 lines
  1. {
  2. > In particular a collection of Filenames in the current directory sorted
  3. > and the ability to scroll these Strings vertically.
  4.  
  5. CCompiled and tested under BP7. All Units are standard Units available with
  6. both TP6 and BP7 packages
  7. }
  8.  
  9. Program ListDirProg;
  10. Uses
  11.   Objects,App,StdDlg;
  12.  
  13. Type
  14.   MyApp = Object(TApplication)
  15.             Procedure run; Virtual;
  16.           end;
  17.  
  18. Procedure myapp.run;
  19. Var
  20.   p : PFileDialog;
  21. begin
  22.   New(P,init('*.*','Directory Listing', '~S~earch Specifier', fdokbutton,0));
  23.   if p <> nil then
  24.   begin
  25.     execview(p);
  26.     dispose(p,done);
  27.   end;
  28. end;
  29.  
  30. Var
  31.   a : myapp;
  32.  
  33. begin
  34.   a.init;
  35.   a.run;
  36.   a.done;
  37. end.
  38.