home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / shazam / ademo2.evt < prev    next >
Encoding:
Text File  |  1992-09-01  |  841 b   |  20 lines
  1.    {===================================================================
  2.  
  3.    OPEN
  4.  
  5.    ===================================================================}
  6. procedure hdOpen ;
  7. var
  8.    D                         : PFileDialog ;
  9.    FileSpec                  : FNameStr ;
  10. begin
  11.    FileSpec                  := '*.TXT' ;
  12.    New ( D , Init ( FileSpec ,                             { FileSpec }
  13.                     'Open file',                       { Dialog title }
  14.                     '~N~ame' ,                      { InputLine label }
  15.                     fdOpenButton ,                          { Buttons }
  16.                     100 ) ) ;                          { History list }
  17.    if ExecDialog ( D , @FileSpec ) = cmCancel then EXIT ;   { GENERAL }
  18.    OpenEditor ( FileSpec , TRUE ) ;                         { GENERAL }
  19. end ;
  20.