【求助】dcl中的list如何完成增加，删除，导入（已经调试成功），修改，清空等

daiguafan · 发表于 2011-3-17 16:16

本帖最后由 daiguafan 于 2011-3-17 16:36 编辑

清空导入已经可以全局了，继续调试中，希望可以帮忙

pop159 · 发表于 2011-3-17 21:24

daiguafan · 发表于 2011-3-17 21:33

回复 pop159 的帖子

你可以帮下忙不，我在线等了一天了

ZZXXQQ · 发表于 2011-3-17 21:39

(defun delist ();清空
(start_list "list1" 3 0);直列表 {"List1"} 初始化
; (add_list "")
(end_list)
)

daiguafan · 发表于 2011-3-17 21:52

本帖最后由 daiguafan 于 2011-3-17 21:53 编辑

回复 ZZXXQQ 的帖子

清空我已经做到了啊，呵呵但是修改怎么都不对您这个是什么意思呢，看不明白

ZZXXQQ · 发表于 2011-3-17 23:28

这样试试：
(defun edit ();修改
(start_list "List1" 1 (read (get_tile "List1")));修改表 {"List1"} 初始化
(add_list (get_tile "Text1"));修改表项
(end_list)
)

daiguafan · 发表于 2011-3-18 12:05

回复 ZZXXQQ 的帖子

好像我调试的时候get-title list1 就是空的
然后就是如果list表单是（“1 2 3 4 5 ” “2 4 6 8 10 ”这样的时候，就会类型不对
呵呵，我快崩溃了

365724661 · 发表于 2022-2-20 17:17

daiguafan 发表于 2011-3-18 12:05
回复 ZZXXQQ 的帖子

好像我调试的时候get-title list1 就是空的

listbox增加删除的解决了么

lee50310 · 发表于 2022-2-20 21:11

本帖最后由 lee50310 于 2022-2-21 10:48 编辑

一個來自國外論壇的類似範例可當參考

下載後自行研究吧!
載入後執行指令:test

功能: 1.可增加( Add>>)  ,2.刪除(Remove)  ,3.替換(Replace),
      4.上移(Move UP) ,5.下移(Move Down)

如圖所示:

365724661 · 发表于 2022-2-21 08:13

lee50310 发表于 2022-2-20 21:11
一個來自國外論壇的類似範例可當參考

下載後自行研究吧!

非常感谢！

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

【求助】dcl中的list如何完成增加，删除，导入（已经调试成功），修改，清空等

点评

本帖子中包含更多资源

评分