Приложение C. Описание стандартных модулей

123

function UpCaseCyr(ch: char): char;

Действие: Эта функция работает как стандартная функция UpCase, но кроме букв

латинского алфавита делает преобразование и строчных букв кириллицы в

прописные.

function LoCase(ch: char): char;

Действие: Эта функция работает как стандартная функция UpCase, но делает обратное

преобразование (прописных букв в строчные).

function LoCaseCyr(ch: char): char;

Действие: Эта функция работает как функция UpCaseCur, но делает обратное

преобразование (прописных букв в строчные).

procedure UpCaseS(var s: string);

Действие: Эта процедура делает преобразование всех строчных латинских букв,

находящихся в строке S, в прописные.

procedure UpCaseSCyr(var s: string);

Действие: Эта процедура работает как процедура UpCaseS, но кроме букв латинского

алфавита делает преобразование строчных букв кириллицы в прописные.

procedure LoCaseS(var s: string);

Действие: Эта процедура работает как процедура UpCaseS, но делает обратное

преобразование (прописных букв в строчные).

procedure LoCaseSCyr(var s: string);

Действие: Эта процедура работает как процедура UpCaseSCyr, но делает обратное

преобразование (прописных букв в строчные).

function ScanFor(ch: char; const s; i: natural; l: integer): integer;

Действие: Эта функция ищет символа в буфере (символьная строка, упакованный массив

байтов или символов). Параметром CH задается искомый символ, параметром

S - буфер, в котором будет совершаться поиск, параметром I - начальный

элемент буфера, с которого начнется поиск, L - максимальное число

элементов, подлежащих проверке. Если L больше нуля, поиск ведется с

текущего элемента к концу буфера. А если L меньше нуля - в обратном

направлении. Результатом функции является число, указывающее сколько

элементов было пропущено до того, как был обнаружен искомый символ, т.е.

результат 0 означает, что I-ый элемент буфера содержит искомый символ, 1 -

(I+1), и т.д. Отрицательное значение результата является указанием на то, что

поиск был совершен в обратном направлении (т.е. L < 0 или, другими словами,

знак результата совпадает с знаком параметра L). Если функция не обнаружила

искомого символа (CH), в качестве результата она возвращает значение

параметра L. Таким образом, результат функции надо интерпретировать так:

если он отличается от L, искомый символ был обнаружен в позиции с индексом,

значение которого является суммой результата и I.

function ScanNotFor(ch: char; const s; i: natural; l: integer): integer;

Действие: Эта функция ищет символа, отличающегося от заданного параметром. Она

работает аналогично функции ScanFor, только ищет символа, отличающегося от

заданного символа (а не совпадающего с ним).