powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / clipper 5 программирование
3 сообщений из 3, страница 1 из 1
clipper 5 программирование
    #35932065
S.LOG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Впервые использовал консруктор GETNEW
После завершения ввода не сохраняетя введеное значение переменной
Не могу разобраться почемую Помогите пожалуйста.

FUNCTION Vvod(x)
LOCAL oldcursor:=SETCURSOR(SC_NORMAL)
LOCAL Col:=42;
CLEAR GETS

cX=STR(x-48,1)+" "

get_obj:=GETNEW(ROW(),Col,{|| cX})
get_obj:setFocus()
get_obj:end()
READMODAL({get_obj})

IF LASTKEY()=K_ENTER
REPL Kol WITH VAL(cX), SUMMA WITH ROUND(VAL(cX)*Price,2)
ENDIF

SETCURSOR(oldcursor)

RETURN
...
Рейтинг: 0 / 0
clipper 5 программирование
    #35940499
Vowk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В GetNew в качестве третьего параметра должен указываться блок с одним параметром.
У этого блока двоякое назначение:
1. Если параметр NIL, то это означает, что Get-система запрашивает значение переменной, которая обрабатывается Get-ом. В этом случае блок должен вернуть это значение.
2. Если параметр не-NIL, то это означает, что Get-система обращается к блоку для того, чтобы
это значение параметра было присвоено переменной.
В приведенном примере блок записан неверно, поскольку:
а) в нем нет параметра вообще (блок без параметра),
б) блок не предпринимает никаких действий, чтобы переменной присвоить значение.
Правильный вариант:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
FUNCTION Vvod(x)
LOCAL oldcursor:=SETCURSOR(SC_NORMAL)
LOCAL Col:= 42 
CLEAR GETS
cX=STR(x- 48 , 1 )+" "
get_obj:=GETNEW(row(),col,{|y|iif(y == NIL,cX, cX:=y)})
get_obj:setFocus()
get_obj:end()
READMODAL({get_obj})

IF LASTKEY()=K_ENTER
   ? 'cX='+cX
   //REPL Kol WITH VAL(cX), SUMMA WITH ROUND(VAL(cX)*Price, 2 )
ENDIF

SETCURSOR(oldcursor)

RETURN
...
Рейтинг: 0 / 0
clipper 5 программирование
    #35956069
S.LOG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо за помощь!!!
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / clipper 5 программирование
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]