home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 12 / envidemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-09-28  |  1.1 KB  |  38 lines
  1. PROGRAM EnvironDemo;
  2.  
  3. {$I ENVIRON.INC}
  4.  
  5. VAR f           : FILE;
  6.     FileExists  : BOOLEAN;
  7.     p           : BYTE;
  8.     DosPath,
  9.     SearchPath,
  10.     SearchName,
  11.     FileName    : STRING[255];
  12.  
  13. BEGIN
  14.   WriteLn;  WriteLn;  Write('Bitte einen Dateinamen (ohne Pfad) eingeben:  ');
  15.   ReadLn(FileName);
  16.   SearchPath := '';
  17.   DosPath := ';' + EnvironStr('PATH');            (* den DOS-Suchpfad holen *)
  18.   REPEAT
  19.     p := Pos(';',DosPath);
  20.     IF  p = 0 THEN                     (* letztes Verzeichnis des Suchpfads *)
  21.       p := Succ(Length(DosPath));
  22.     SearchPath := Copy(DosPath,1,Pred(p));
  23.     Delete(DosPath,1,p);
  24.     SearchName := SearchPath + '\' + FileName;   (* kompletten Namen bilden *)
  25.     Assign(f, SearchName);
  26.     {$I-} ReSet(f); Close(f); {$I+}
  27.     FileExists := (IOResult = 0)
  28.   UNTIL FileExists OR (DosPath = '');
  29.   WriteLn;
  30.   IF FileExists THEN
  31.     IF SearchPath = '' THEN
  32.       WriteLn('Datei befindet sich im aktuellen Verzeichnis !')
  33.     ELSE
  34.       WriteLn('Datei befindet sich im Verzeichnis ',SearchPath,' !')
  35.   ELSE
  36.     WriteLn('Datei nicht gefunden !')
  37. END.
  38.