【求助】我想达到每次dcl中输入的数据下次还可以出现

chpmould · 发表于 2011-4-6 22:54:42

daiguafan 发表于 2011-4-6 19:19
回复 chpmould 的帖子

我试了呢，但是有个疑问就是，不是要get title 才可以得到么，set title才可以显示啊 ...

(get_tile key)获取对话框指定控件的当前运行时的值

(set_tile key value)设置对话框控件的值

198526 · 发表于 2011-4-9 19:17:38

你可不可以把它的值输入到一个变量里,再次打开DCL时再把变量里的值赋予给DCL.
我的就是这样的,把好多个 DCL 的值记在一个变量里形成表,在起动DCL时用(mapcar 'SET_TILE D1 D2)
D1里放 DCL 里的KEY值 D2里储存对应D1的值

daiguafan · 发表于 2011-4-9 19:41:54

回复 198526 的帖子

这个想法，比较适合我，只是没大明白，怎么弄的，方便发段代码看看不

daiguafan · 发表于 2011-4-9 19:43:29

回复 198526 的帖子

这个想法，比较适合我，只是没大明白，怎么弄的，方便发段代码看看不

wdabo · 发表于 2011-4-10 18:26:51

都可以，不过还是在txt里好，因为写进注册表有些杀毒程序会报警，

198526 · 发表于 2011-4-11 08:20:07

回复 daiguafan 的帖子

D1里放 DCL 里的KEY值 D2里储存对应D1的值
在lisp最前面(只要加载就会运行，写在defun之前）写（setq d1 '(KEY1 KEY2 KEY3 ……)）
（setq d2 '("1" "2" "3"……)）此为默认值设置。
在defun后加，(mapcar 'SET_TILE D1 D2)提取默认设置。
然后在按确认键后，提取所有KEY的值存入 D2里
(setq d2'())
   (foreach sv d1 (setq d2 (cons (get_tile sv) d2))
      )
  (setq d2 (reverse d2))

daiguafan · 发表于 2011-4-11 08:23:37

回复 198526 的帖子

明白了，非常感谢你的帮助

账号		自动登录	找回密码
密码			注册