Re: Раз уж никто не решается



Posted by Олег Грибов (213.170.64.42) on December 08, 2001 at 00:50:19:

In Reply to: Раз уж никто не решается posted by Олег Грибов on December 08, 2001 at 00:43:54:

: : Тема конкурса: ПРЕДЛОЖИТЕ задачку для решения.

: Задача такая: создать меню [IM ...] с переменным количеством пунктов меню.

Например есть форма proba.rpt, в которой есть строчка:
im=[IM 'Меню','Привет','старина']
При запуске этой формы получаем ответ от сервера в виде:
Q-M: ·старина·Привет·Меню·
Т.е. пункты меню разделяются символом [CH 250] и следуют "задом наперед"
Поэтому задачу можно решить например так:
s1='Привет старина'
s=''
le=[LENGTH s1]
FOR i=1 TO le
s=s+[CP s1, le-i+1, 1]+[CH 250]
ENDFOR
s=[CP s, 2, 255]
s=[CP s, 1, [LENGTH s]-1]
IM=[IM 'Меню', s]





Пpишедшие ответы: