[Back to OOP SWAG index] [Back to Main SWAG index] [Original]

    {
    > In particular a collection of Filenames in the current directory sorted
    > and the ability to scroll these Strings vertically.

    CCompiled and tested under BP7. All Units are standard Units available with
    both TP6 and BP7 packages
    }

    Program ListDirProg;
    Uses
      Objects,App,StdDlg;

    Type
      MyApp = Object(TApplication)
                Procedure run; Virtual;
              end;

    Procedure myapp.run;
    Var
      p : PFileDialog;
    begin
      New(P,init('*.*','Directory Listing', '~S~earch Specifier', fdokbutton,0));
      if p <> nil then
      begin
        execview(p);
        dispose(p,done);
      end;
    end;

    Var
      a : myapp;

    begin
      a.init;
      a.run;
      a.done;
    end.

[Back to OOP SWAG index] [Back to Main SWAG index] [Original]