Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
IOResult
Функция
Содержит возвращаемый код последней операции ввода/вывода System unit
  function IOResult : Integer;
Описание
Функция IOResult возвращает результат последней операции ввода/вывода.

Если операция завершилась нормально, то это число 0, положительное число, если операция потерпела неудачу.

Используйте IOResult, когда вы уже отключили значение по умолчанию отлавливающее ошибки ввода/вывода. Когда $IOChecks включено, Delphi выдает исключения для ошибок. Когда выключено Delphi не выдает исключения, требуя, чтобы код сам следил за результатом ввода/вывода IOResult.
Примечания
Предупреждение: исправление результата ввода/вывода является одноразовым - исправление сбрасывает значение в 0.
Похожие команды
$IOChecks  

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
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия