STRLEN(текстовая переменная) возвратит длину строки
если длина окажется меньше 12, прибавьте соответствующее кол-во пробелов спереди
что-то типа
IF STRLEN(текст) < 12 THEN
FOR i := 1 TO (12 - STRLEN(текст)) DO
текст := ' ' + текст;
__________________
"Моей лошадке ядрышком полмордочки снесло..."
А.В.Суворов, письма к дочери
|