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
 



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