home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TJOCKREF.ZIP / DIRTTT.TXT < prev    next >
Encoding:
Text File  |  1988-08-21  |  1.2 KB  |  38 lines
  1. !SHORT:Display_Directory      Display "Sidekick" type pick directory
  2. Display_Directory                                               DirTTT
  3.      
  4.  
  5.  
  6. Purpose   To display a Sidekick-like directory for the user to select
  7.           a file.
  8.  
  9. Returns   a string containing the selected file.
  10.  
  11. Declaration    Display_Directory(  var PathName: string;
  12.                FileMask: string):string;
  13.                
  14.           PathName is a string variable containing the directory to
  15.           initially display.
  16.                
  17.           FileMask is a string containing a DOS compatible file mask.
  18.           The ? and * symbols are supported e.g. '*.pas',
  19.           '???willy.*'.
  20.  
  21. Remarks   If the D.AllowEsc variable is enabled, then the function
  22.           returns a string of #027 if the user ESCapes.
  23.                
  24.           There is no facility for saving/restoring the screen
  25.           automatically. If necessary, use the SaveScreen and
  26.           RestoreScreen procedures included in the WinTTT unit.
  27.  
  28. Example
  29.  
  30.  
  31.                USES CRT, FASTTTT, DOS, KEYTTT, WINTTT, DIRTTT;
  32.                VAR  F,P : STRING;
  33.                BEGIN
  34.                  GETDIR(0,P);
  35.                  F := DISPLAY_DIRECTORY(P,'*.*');
  36.                END;
  37.      
  38.