Показать сообщение отдельно
Старый 01.10.2013, 14:18   #16  
Yoil is offline
Yoil
NavAx
NavAx Club
Лучший по профессии 2017
Лучший по профессии 2009
 
1,574 / 70 (6) ++++
Регистрация: 20.11.2002
Адрес: Msk
STRLEN(текстовая переменная) возвратит длину строки
если длина окажется меньше 12, прибавьте соответствующее кол-во пробелов спереди
что-то типа

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