function IOResult : Integer;
Функция IOResult возвращает результат последней операции ввода/вывода. Если операция завершилась нормально, то это число 0, положительное число, если операция потерпела неудачу. Используйте IOResult, когда вы уже отключили значение по умолчанию отлавливающее ошибки ввода/вывода. Когда $IOChecks включено, Delphi выдает исключения для ошибок. Когда выключено 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;
|