home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Delphi.5 / Samples / sourceD5 / browutil.exe / BROWSER / BROWSER.DPR < prev    next >
Encoding:
Text File  |  2000-01-02  |  1.4 KB  |  47 lines
  1. program Browser;
  2.  
  3. uses
  4.   Forms,
  5.   SysUtils,
  6.   dbTables,
  7.   Menu in 'Menu.pas' {FrmMenu},
  8.   Filter in 'Filter.pas' {FrmFilter},
  9.   Compare in 'Compare.pas' {FrmCompare},
  10.   GenFunc in 'GenFunc.pas' {General Function},
  11.   About in 'About.pas' {AboutBox},
  12.   Config in 'Config.pas' {FrmConfiguration},
  13.   Browse in 'Browse.pas' {Table Browser},
  14.   OpenFile in 'OpenFile.pas' {Open Table},
  15.   TextEdit in 'TextEdit.pas' {Text Editor},
  16.   QryDsgn in 'QryDsgn.pas' {Query Designer},
  17.   SelIndex in 'SelIndex.pas' {FrmSelectIndex},
  18.   MastLink in 'MastLink.pas' {FrmMasterLink},
  19.   MedPlay in 'MedPlay.pas' {MediaPlayer},
  20.   Player in 'Player.pas' {Player},
  21.   Command in 'Command.pas' {FrmCommandWindow},
  22.   Literals in 'Literals.pas',
  23.   Mailing in 'Mailing.pas' {FrmMailing},
  24.   ModiStru in 'ModiStru.pas' {FrmModifyStructure},
  25.   CompFile in 'compfile.pas' {FrmCompareFile},
  26.   Browser_TLB in 'Browser_TLB.pas',
  27.   COMBrows in 'COMBrows.pas' {COMBrowser: CoClass};
  28.  
  29. {$R *.TLB}
  30.  
  31. {$R *.RES}
  32.  
  33. begin
  34.   ShortTimeFormat := 'hh:mm';
  35.   ShortDateFormat := 'dd/mm/yyyy';
  36.   DateSeparator := '/';
  37.   AssignNetFileDir(ExtractFilePath(Application.ExeName));
  38.   Application.ProcessMessages;
  39.   Application.HintPause := 100;
  40.   Application.Initialize;
  41.   Application.Title := 'CCPL software Browser Utility Version 2.0';
  42.   Application.CreateForm(TFrmMenu, FrmMenu);
  43.   Application.CreateForm(TFrmOpenTable, FrmOpenTable);
  44.   Initialise(Application);
  45.   Application.Run;
  46. end.
  47.