Delphi-Help

Описание

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;

Каталог создался успешно
Повторное создание каталога провалилось с ошибкой 183

Примечание

Предупреждение: исправление результата ввода/вывода является одноразовым - исправление сбрасывает значение в 0.