Insert('Abe',s,8); { Honest Abe Lincoln }
Функция Int
─────────────────────────────────────────────────────────────────
Назначение: Возвращает целую часть аргумента.
Описание: Int(X: Real)
Тип результата: Вещественный (Real).
Примечания: X - это выражение вещественного типа. Результатом будет целая часть X, то есть число X, округленное в сторону 0.
Прочее: см. подпрограммы Frac, Round, Trunc.
Пример:
var
r : real;
begin
r := Int(123.456); { 123 }
end.
Процедура Intr Модуль WinDos
─────────────────────────────────────────────────────────────────
Назначение: Выполняет заданное программное прерывание.
Описание: Intr(IntNum : byte; var Regs : TRegisters)
Примечания: Параметр IntNum - это номер программного прерывания (0...255). TRegisters является записью, определенной DOS следующим образом:
type
TRegisters = record
case integer of
0: (AX,BX,CX,X,BP,SI,DS,ES,Flags: word);
1: (AL,AH,BL,BH,CL,CH,DL,DH: byte);
end;
Перед выполнением указанного программного прерывания функция Intr, используя запись Rеgs, загружает регистры AХ, ВХ, СХ, DХ, ВР, SI, DI, DS и ЕS процессора 8086. После того, как прерывание будет выполнено, содержимое регистров AХ, ВХ, СХ, DХ, ВР, S1, DI, DS, ES и регистров флагов опять сохраняется в записи Regs.
Чтобы избежать при работе в стандартном режиме Windows или улучшенном режиме Windows 386 сбоев по нарушению защиты, всегде необходимо убедиться, что поля DS и ES записи TRegisters инициализируются допустимыми значениями селектора, или установлены в 0.
Ограничения: Программные прерывания, для которых на входе требуется задание определенных значений в SР или SS или изменяют значения SР и SS на выходе, с использованием данной процедуры выполняться не могут.
Прочее: См. также процедуру MsDos.
Функция IOResult
─────────────────────────────────────────────────────────────────
Назначение: Возвращает целое значение, представляющее собой состояние последней выполненой операции ввода-вывода.
Описание: IOResult
Тип результата: Слово (word).
Примечания: Чтобы перехватить ошибки ввода-вывода с помощью функции IORеsult, проверка ввода-вывода должна быть выключена (директива компилятора {$I-}). Если проверка ввода-вывода выключена и происходит ошибка ввода-вывода, то, пока выполняется обращение к функции IORеsult, все последующие операции ввода-вывода игнорируются. Обращение в функции IORеsult сбрасывает ее внутренний флаг ошибки.
Перечень возвращаемых кодов ошибок приведен в Приложении A. Значение 0 отражает успешное выполнение операции ввода-вывода.
Пример:
var
f : file of byte;
begin
{ получить командную строку с именем файла }
Assign(f, ParamStr(1));
{$I-}
Reset(f);
{$I+}
if IOResult = 0 then
Writeln('Размер файла в байтах :',FileSize(f));
else
Writeln('Файл не найден');
end.
Функция KeyPressed Модуль WinCrt
─────────────────────────────────────────────────────────────────
Назначение: Определяет, нажата ли клавиша на клавиатуре.
Описание: KeyPressed: Boolean
Тип результата: Булевский (boolean).
Примечания: Возвращает значение Truе, если на клавиатуре нажата клавиша и False в противном случае. Символ (или символы) остаются в буфере клавиатуры. Данная процедура не распознает клавиш перевода регистра, таких, как Shift, Аlt, NumLock и т.д.
Функция Length
─────────────────────────────────────────────────────────────────
Назначение: Возвращает динамическую длину строки.
Описание: Length(S : string)
Тип результата: Целый (integer).
Примечания: Параметр S представляет собой выражение строкового типа. Результатом будет длина S.
Пример:
var
s : string;