用法
评论
建议
取 消
确 定
(defun dcl:error (msg) "dcl 系列函数的错误处理,当dcl 运行出错后的一系列扫尾工作,防止对话框无法关闭而只能强行结束任务的情况。" (term_dialog) (if dcl-id (unload_dialog dcl-id)) (if (= (quote file) (type dcl-fp)) (close dcl-fp)) (if (and (= (quote str) (type dcl-tmp)) (findfile dcl-tmp)) (vl-file-delete dcl-tmp)) (@:*error* msg))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新