Создание текстовых объектов

Оператор text не создает текстовой объект, а только объявляет, что данные переменные будут ссылаться на текстовые объекты. Для работы с текстом необходимо создать текстовой объект, это можно осуществить с помощью двух процедур: blanks и text.

Процедура blanks создает текстовой объект длины n. Длина текста n является формальным параметром данной процедуры, данный текст заполняется пробелами.

Процедура text также создает текстовой объект, данный объект является копией параметра данной процедуры, т.е. параметром процедуры является переменная или константа текстового типа. Значение указателя позиции после выполнения данных процедур равно единице.

text t1,t2,t3;

t1:- blanks (13);

t2:- text (''симула-67'');

t3:- text (t2);

В данном примере текстовая переменная t1 имеет длину 13 символов, ее значение есть '' '' (13 пробелов). Переменная t2 имеет значение '' cимула '', значение переменной t3 также равно '' cимула-67 ''. Для того чтобы присвоить текстовой переменной новое значение, необходимо, использовать оператор присваивания:

t1:= '' моделирование '';

В данном примере текстовому объекту T1, созданному в предыдущем примере, присваивается значение ''' моделирование '.

Присваивание текстовых значений зависит от соотношения длин текстов левой и правой частей присваивания. Если длины равны, то последовательно (слева направо) переписываются символы из текста правой части в текст левой части. Если длина переменной левой части больше длины переменной правой части, то оставшаяся часть справа заполняется пробелами, если длина переменной левой части меньше длины переменной правой части, то выдается сообщение об ошибке.

Указатели позиции в текстовых переменных остаются неизменными.