Директива компілятора Delphi $I – дозволяє вбудувати код вказаного файлу в модуль

Директива $I компілятора Delphi дозволяє вбудувати код вказаного файлу в модуль.

Директива компілятора $I: Заманювання в пастку IO винятків, та використання IOResult

var
  error : Integer;

begin
  // Спроба створити новий підкаталог у поточному каталозі
  // Вимкнення перевірки помилок введення/виводу
  {$I-}
  MkDir('TempDirectory');

  // Каталог створився?
  error := IOResult;
  if error = 0
  then ShowMessage('Каталог створився')
  else ShowMessageFmt('Створення каталогу зазнало невдачі з помилкою %d',[error]);

  // Спроба створити новий підкаталог у поточному каталозі – станеться помилка!
  MkDir('TempDirectory');
  error := IOResult;
  if error = 0
  then ShowMessage('Каталог створився знову')
  else ShowMessageFmt('Повторне створення провалилося з помилкою %d',[error]);

  // Видалення каталогу для очищення
  RmDir('TempDirectory');

  // Увімкнення перевірки помилок введення/виводу
  {$I+}
end;