• Novichek
  • Восстановленный участник
  • На форуме с 12 августа 2008г.
  • Сообщений: 64
  • Спасибо: 0

Тема: Перевод введенной строки в число

Здравствуйте! есть такой фрагмент кода:
lisp:
  (setq RUVV 1)
  (setq RUVV_1 (rtos (RUVV)))
;;;
  (setq    dcl_id
     (load_dialog"C:\\Documents and Settings\\zakirov_am\\Мои документы\\test\\MyFirst\\Gor.DCL"
     )
  )
  (new_dialog "GOR" dcl_id)
   (SET_TILE "RUVV_PROC" RUVV_PROC)
   (SET_TILE "RUVV_1" RUVV_1)   
   (action_tile "RUVV_PROC" "(setq RUVV_PROC $value)")
   (action_tile "RUVV_1" "(setq RUVV_1 $value)")
   (action_tile "accept" "(setq dialog_ok T)(done_dialog)")
   (action_tile "cancel" "(done_dialog 0)")
  (setq RUVV (atof (RUVV_1)))
(start_dialog)
DCL:
GOR:dialog{label="Исходные данные";
:boxed_column{label="Выбоp масштабов";
:text{value="Веpоятность пpевышения";}
:edit_box{label="превышение";key="RUVV_1";edit_width=12;edit_limit=8;}
:edit_box{label="pасчетного уpовня,%";key="RUVV_PROC";edit_width=2;edit_limit=2;}
:toggle{key="chek";label="продолжить создание уровней?";width=6;height=1;is_tab_stop=true;}
             }
:text{value=" ";}ok_cancel;}
Окно не грузится а сразу выдает ошибка функции "340". Введенное значение должно переводиться в число и использоваться для дальнейших расчетов. Но что то не получается. Подскажите пожалуйста)))

  • Юрий
  • Восстановленный участник
  • На форуме с 10 апреля 2006г.
  • Сообщений: 178
  • Спасибо: 0

Re: Перевод введенной строки в число

Вместо строки

(setq RUVV_1 (rtos (RUVV)))

должно быть

(setq RUVV_1 (rtos RUVV))

т.е. переменная не заключается в круглые скобки, иначе она воспринимается как функция.
То же самое. Вместо

(setq RUVV (atof (RUVV_1)))

должно быть

(setq RUVV (atof RUVV_1))