Re: Хочу чтобы [set % легко обнулялись



Posted by Васеленко Сергей on July 28, 1999 at 05:06:48:

In Reply to: Хочу чтобы [set % легко обнулялись posted by Олег, Москва on July 27, 1999 at 07:17:11:

Обнулять %-параметры лучше вначале выполнения, а не в конце, т.к.
форма может быть остановлена в момент выполнения (в т.ч. и по ошибке) и
%-параметры не обнулятся.

Для многих задач могут подойти следующие процедуры.

Процедуру VP_INI следует вызывать вначале формы.
Переменная VR есть "флажок" о котором говорит Рустем.


*****************************************************************************
** **
** Работа с версионными параметрами **
** **
*****************************************************************************
:VP_INI Инициализация новой версии параметров
*****************************
VR=[get %,'VersionParameter']+1
[set %,'VersionParameter',VR]
return
*****************************
:VP_ADD Добавление значения версионного параметра
*****************************
if [get %,P+'|V']=VR
[plus %,P,Z]; return
endif
*****************************
:VP_SET Установка значения версионного параметра
*****************************
[set %,P+'|V',VR]
[set %,P,Z]
return
*****************************
:VP_GET Чтение значения версионного параметра
*****************************
if [get %,P+'|V']=VR
Z =[get %,P]
else
Z =0
endif
return
*****************************************************************************




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