SetInOutRes, процедура
Синтаксис
procedure SetInOutRes(Code : Integer);
Описание
Процедура SetlnOutRes устанавливает код ошибки ввода/вывода равным Code. Вызов
lOResult возвращает этот код ошибки и
сбрасывает его в ноль.
Ошибки
Советы и приемы
- В каждом потоке поддерживается собственный код ошибок ввода/вывода. Вызывайте SetInOutRes в контексте требуемого потока.
- Delphi резервирует коды 100-106 для собственных ошибок ввода/ вывода (список этих кодов приводится в описании функции lOResult). Для всех остальных ошибок используйте коды ошибок Windows.
- Вызов SetInOutRes не генерирует ошибки ввода/вывода, а лишь устанавливает код ошибки. Сообщать об ошибке ввода/вывода нужно отдельно. Соответствующие примеры рассмотрены в описаниях процедуры RunError.
Пример
// Реализация изменения позиции в текстовом файле.
procedure TextSeek(var F: TextFile; Position: Integer);
var
Handle: Integer;
NewPosition: DWORD;
begin
// TextFile - это фактически запись, первое значение в которой -
// дескриптор файла.
Handle := PInteger(@F)^;
NewPosition := SetFilePointer(Handle, Position, nil, File_Begin);
if NewPosition = $FFFFFFFF then
begin
SetInOutRes(GetLastError);
ReportError(0); // 0 - значит, произошла ошибка ввода/вывода
end;
end;
Смотрите также
Функция lOResult, процедура RunError.Учебник по языку Pascal Лабораторные работы по программированию Справочник
Нет комментариев. Оставить комментарий: |