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