home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / grafik / vgakit / gif / source / dirunit.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-05-30  |  1.7 KB  |  78 lines
  1.  
  2. UNIT DIRUNIT;
  3. {$F+}
  4.  
  5. INTERFACE
  6.  
  7.  
  8. USES  TPCRT,DOS,TPDIR,TPPICK,TPSTRING;
  9.  
  10.  
  11. CONST DIRXMIN     : BYTE = 1;
  12.       DIRYMIN     : BYTE = 1;
  13.       DIRYMAX     : BYTE = 25;
  14.       DIRSPALTEN  : BYTE = 5;
  15.  
  16. CONST DIRCOLORS : PICKCOLORARRAY = ($1B,$1E,$1E,$50,$1F,$50);
  17. { NORMAL, RAND, ÜBERSCHRIFT, CURSOR, DIRECTORIES, CURSOR AUF DIRECTORIES }
  18.  
  19.  
  20. FUNCTION DIRECTORY(MASK:STRING):STRING;
  21.  
  22.  
  23. IMPLEMENTATION
  24.  
  25.  
  26. FUNCTION DIRECTORY(MASK:STRING):STRING;
  27. VAR   NAME  : STRING;
  28.       ENDE  : BOOLEAN;
  29.       I     : INTEGER;
  30. BEGIN { DIRECTORY }
  31.   PICKSRCH := STRINGALTSRCH {STRINGPICKSRCH} {CHARPICKSRCH} {CHARPICKNOW};
  32.   ENDE := FALSE;
  33.  
  34.   REPEAT
  35.     I := GETFILENAME(MASK,ANYFILE,DIRXMIN,DIRYMIN,DIRYMAX,DIRSPALTEN,DIRCOLORS,NAME);
  36.     CASE I OF
  37.       0 : BEGIN
  38. (*
  39.             CASE PICKCHAR OF
  40.               #$BC : BEGIN { F2 }
  41.                        SHOWSIZEDATETIME := NOT SHOWSIZEDATETIME;
  42.                      END;
  43.               #$BD : BEGIN { F3 }
  44.                        WRITE(#7);
  45.                      END;
  46.             ELSE;
  47. *)
  48.               ENDE := TRUE;
  49.               DIRECTORY := NAME;
  50. (*
  51.             END;
  52. *)
  53.           END;
  54.   1,2,3 : BEGIN
  55.             DIRECTORY := #7+MASK+' PFAD NICHT GEFUNDEN';
  56.             EXIT;
  57.           END;
  58.       4 : BEGIN
  59.             DIRECTORY := #7+'ZU WENIG SPEICHER';
  60.             EXIT;
  61.           END;
  62.     ELSE
  63.       DIRECTORY := #7+'DOS ERROR';
  64.       EXIT;
  65.     END; { CASE }
  66.   UNTIL ENDE;
  67. END; { DIRECTORY }
  68.  
  69.  
  70. (*
  71. BEGIN
  72.   PICKSRCH := STRINGALTSRCH {STRINGPICKSRCH} {CHARPICKSRCH} {CHARPICKNOW};
  73.   IF NOT ADDPICKCOMMAND(PKSUSER1,1,60 SHL 8,0) THEN BEGIN WRITE(#7) END; { F2 }
  74.   IF NOT ADDPICKCOMMAND(PKSUSER2,1,61 SHL 8,0) THEN BEGIN WRITE(#7) END; { F3 }
  75. *)
  76. END.
  77.  
  78.