Операция определения адреса. Подпрограммы. Функции. Процедуры редактирования строк

2.3. Операция определения адреса

Унарная операция со знаком @. Операнд - переменная строкового типа, результат - указатель на участок оперативной памяти, в котором располагается переменная (адрес нулевого байта строки).

2.4. Подпрограммы

2.4.1. Функции

а) определение текущей (динамической длины) строки:

LENGTH(<исходная строка>:STRING):INTEGER;

б) выделение из строки подстроки (получение частичной копии):

COPY(<исходная строка>:STRING;
<номер начальной позиции>,
<количество копируемых символов>:INTEGER)

:STRING;

в) определение позиции первого вхождения подстроки в строку (если подстрока не входит в строку, то результат 0):

POS(<подстрока>,<строка>:STRING):BYTE;

г) конкатенация (слияние) группы строк:

CONCAT(<первая строка>,

<вторая строка>,

...

<последняя строка>:STRING)

:STRING;

Таблица 21.1. Примеры использования функций:

Операция	Результат
LENGTH('Информатика')
COPY('Информатика',3,5) COPY('Информатика',3,100) COPY('Информатика',30,5)	'форма' 'форматика' ''
POS('форма','Информатика') POS('реформа','Информатика') POS('ма','мама')
CONCAT('при','м','ус','ы')	'примусы'

2.4.2. Процедуры редактирования строк

а) удаление последовательности символов строке:

DELETE(VAR <обрабатывааемая строка>:STRING;

<номер начальной позиции>:INTEGER;

<количество удаляемых символов>:INTEGER);

Например, при выполнении операторов

a:='ИНФОРМАТИКА';

DELETE(a,3,6)

переменная а получит значение 'ИНИКА'.

При выполнении операторов

a:='ИНФОРМАТИКА';

DELETE(a,3,60)

переменная а получит значение 'ИН'.

б) вставка подстроки в строку:

INSERT(<вставляемая строка>:STRING;

VAR <обрабатывааемая строка>:STRING;

<номер начальной позиции>:INTEGER).

Например, при выполнении операторов

a:='ИНИКА';

INSERT('формат',a,3)

переменная а получит значение 'ИНформатИКА'.

Процедура работает, как конкатенация, если номер начальной позиции больше, чем длина обрабатываемой строки (подстрока "приклеивается" справа к строке);

⇐ Предыдущая 1 234 5 6 7 8 9 10 Следующая ⇒