Процедура ChDir

Подпишись на новости, чтобы ничего не пропустить

Процедура ChDir в Паскале изменяет текущий каталог. Синтаксис:

procedure ChDir(const s); overload;

Иногда возникает необходимость программно изменить текущий каталог. Для программы по умолчанию текущим каталогом является каталог, из которого запущена программа. Соответственно, все относительные пути к файлу определяются от этого каталога.

Процедура ChDir изменяет рабочую директорию (текущий каталог) программы (процесса). После успешного выполнения этой процедуры текущим становится каталог, путь к которому передан в ChDir через параметр s.

В зависимости от состояния директивы {$I} при наличии ошибки во время вызова процедуры ChDir может быть сгенерирована ошибка времени выполнения. Если проверка ошибок ввода-вывода отключена (переключатель в состоянии {$I-}), то вы можете использовать функцию IOResult для проверки ошибок.

Пример программы см. ниже:

program chdirproc;

var
  DirName : string;
  F       : Text;

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
begin
  {$I-}
  //Файл будет создан в каталоге программы
  Assign(F, 'test.txt');
  Rewrite(F);
  Write(F, 'TEST');
  Close(F);  

  DirName := 'DATA';
  ChDir(DirName);       //Будет ошибка, если такого каталога нет
  if IOresult <> 0 then //В случае ошибки
    begin
      Writeln ('!!! Error: Cannot change to directory - ',
               DirName);
      WriteLn('Then end. Press ENTER...');
      ReadLn;
      Exit;             //Закрыть программу
    end;

  //Если ошибок не было
  Rewrite(F);
  Write(F, 'TEST');
  Close(F);
  //Файл test.txt будет создан в каталоге DATA,
  //Поскольку теперь этот каталог является текущим

  WriteLn('Then end. Press ENTER...');
  ReadLn;
end.

Если вы работали когда-нибудь в DOS или командной строке, то команда ChDir вам наверняка знакома. Она выполняет те же действия, что и процедура ChDir, то есть изменяет текущий каталог.

Вступить в группу "Основы программирования"

Подписаться на канал в РУТУБ

Подписаться на Дзен-канал

Подписаться на рассылки по программированию

Как стать программистом 2.0

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...

Помощь в технических вопросах

Помощь студентам. Курсовые, дипломы, чертежи (КОМПАС), задачи по программированию: Pascal/Delphi/Lazarus; С/С++; Ассемблер; языки программирования ПЛК; JavaScript; VBScript; Fortran; Python и др. Разработка (доработка) ПО ПЛК (предпочтение - ОВЕН, CoDeSys 2 и 3), а также программирование панелей оператора, программируемых реле и других приборов систем автоматизации. Подробнее...

Главная
Контакты