а чем Код: s2 := s1; не нравится?
s2 := s1;
Сообщение от saii а чем Код: s2 := s1; не нравится? не нравится тем, что это цикл парсинга строки! И я привел проблемный фрагмент, остальное заменив многоточием
Сообщение от -=Vovka=- не нравится тем, что это цикл парсинга строки! И я привел проблемный фрагмент, остальное заменив многоточием Тогда так: Код: FOR xxx := 1 TO LEN(s1) - 1 DO s2 := CONCAT(s2, MID(s1, 1, xxx)); END_FOR
FOR xxx := 1 TO LEN(s1) - 1 DO s2 := CONCAT(s2, MID(s1, 1, xxx)); END_FOR
Правила форума