home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 13 / sonstige / envdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-10-06  |  1.6 KB  |  56 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   ENVDEMO.PAS                          *)
  3. (*    Demonstration zur Verwendung von DOS-Umgebungs-     *)
  4. (*    variablen in Turbo Viernull. Vgl.: PASCAL 12/87     *)
  5. (* ------------------------------------------------------ *)
  6.  
  7. PROGRAM Envdemo;
  8.  
  9. USES Environ;
  10.  
  11. VAR f         : FILE;
  12.     FileExists: BOOLEAN;
  13.     p         : BYTE;
  14.     DosPath,
  15.     SearchPath,
  16.     SearchName,
  17.     FileName  : STRING;
  18.  
  19. BEGIN
  20.   WriteLn; WriteLn;
  21.   Write('Bitte einen Dateinamen (ohne Pfad) eingeben: ');
  22.   ReadLn(FileName);
  23.   SearchPath := '';
  24.   DosPath := ';'+ EnvVar('PATH');
  25.   WriteLn(DosPath);
  26.   REPEAT
  27.     p := Pos(';', DosPath);
  28.     IF p = 0 THEN p := Succ(Length(DosPath));
  29.     SearchPath := Copy(DosPath, 1, Pred(p));
  30.     Delete(DosPath, 1, p);
  31.     IF SearchPath = '' THEN
  32.       SearchName := FileName
  33.     ELSE
  34.       IF SearchPath[Length(SearchPath)] = '\' THEN
  35.         SearchName := SearchPath + FileName
  36.       ELSE
  37.         SearchName := SearchPath + '\' + FileName;
  38.     WriteLn('Suche ', SearchName, ' ...');
  39.     Assign(f, SearchName);
  40.     {$I-} Reset(f); close(f); {$I+}
  41.     FileExists := (IOResult = 0);
  42.   UNTIL FileExists OR (DosPath = '');
  43.   WriteLn;
  44.   IF FileExists THEN
  45.     IF SearchPath = ''THEN
  46.       WriteLn('Datei befindet sich im aktuellen Laufwerk!')
  47.     ELSE
  48.       WriteLn('Datei befindet sich im Verzeichnis ',
  49.               SearchPath,'!')
  50.   ELSE
  51.     WriteLn('Datei nicht gefunden!');
  52. END.
  53.  
  54. (* ------------------------------------------------------ *)
  55. (*               Ende von ENVDEMO.PAS                     *)
  56.