[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]