Функція IOResult – містить код останньої операції введення/виводу, що повертається

Функція IOResult в Delphi містить код останньої операції введення/виводу, що повертається.

Функція IOResult: Створення каталогу двічі з перехопленням коду помилки

var
  error : Integer;

begin
  // Спроба створити новий підкаталог у поточній директорії
  // Вимкнення перевірки помилок I/O
  {$IOChecks off}
  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/O
  {$IOChecks on}
end;