增加一个判断内存变量存在的函数
2003-06-26 10:06
190 查看
笔者在开发应用系统中曾经用FoxPro的on error语句编写了一个判断内存变量的函数Exist(),非常方便实用,在此介绍给大家。
设计思路:先假设内存变量存在,然后将待判断的内存变量赋值给一个临时变量,若该内存变量不存在,则执行时必将出错,出错时将执行on error语句,只要在on error处理的函数中修改内存变量存在与否的标志即可。为了不影响调用程序的错误处理,保证该函数的通用性,在函数执行前后必须保存和恢复调用程序可能的错误处理。
源程序如下:
***EXISTPRG***
para MemoVari
private Mexist,temp,OldError
Mexist=.T. 假设内存变量存在
OldError=on(′error′) 保存调用程序的错误处理
on error do ErrHandle
temp= MemoVari
on error OldError 恢复调用程序的错误处理
retu Mexist 返回存在标志
proc ErrHandle
Mexist=.F. 出错则置存在标准为.F.
设计思路:先假设内存变量存在,然后将待判断的内存变量赋值给一个临时变量,若该内存变量不存在,则执行时必将出错,出错时将执行on error语句,只要在on error处理的函数中修改内存变量存在与否的标志即可。为了不影响调用程序的错误处理,保证该函数的通用性,在函数执行前后必须保存和恢复调用程序可能的错误处理。
源程序如下:
***EXISTPRG***
para MemoVari
private Mexist,temp,OldError
Mexist=.T. 假设内存变量存在
OldError=on(′error′) 保存调用程序的错误处理
on error do ErrHandle
temp= MemoVari
on error OldError 恢复调用程序的错误处理
retu Mexist 返回存在标志
proc ErrHandle
Mexist=.F. 出错则置存在标准为.F.
相关文章推荐
- 增加一个判断内存变量存在的函数
- 有一个二叉树,现在怀疑它有一个结点有2个父节点,请写出一个函数来判断该二叉树是否存在一个节点含有2个父节点。如果存在,返回true,否则返回false。
- Instr函数与InstrRev函数的区别(如何判断一个字符串中存在包含了另一个字符串?)
- 请设计一个函数,用来判断在一个矩阵中是否存在一条包含某字符串所有字符的路径。路径可以从矩阵中的任意一个格子开始,每一步可以在矩阵中向左,向右,向上,向下移动一个格子。如果一条路径经过了矩阵中的某一个格子,则该路径不能再进入该格子。 例如 a b c e s f c s a d e e 矩阵中包含一条字符串"bccced"的路径,但是矩阵中不包含"abcb"路径,因为字符串的第一个字符b占据了矩阵中
- 以Point为基类,派生出一个Circle(圆)类,增加数据成员r(半径),以及求面积的成员函数area,实现其他需要的成员函数,设计main函数完成测试
- configure文件中判断某函数或库是否存在的一个方法
- 要在ClassA 中增加定义一个成员函数
- 增加原型方法写出删除一个数组相同元素的函数
- jQuery的函数,有些直接就用$this(表示当前操作的标签),而也不见this在哪里定义过,这个this究竟谁什么?答:把this当成在内从中存在的JavaScript的一个变量即可,一个关键字
- 004_010 Python 给字典增加一个条目 存在不改,不存在添加
- C++怎么判断一个类存在指定的函数名的函数
- 编写函数实现一个字符串在另一个字符串中是否存在
- 写一个函数只要调用一次就可以将参数的值增加1
- 确保类中一定存在某一个函数
- 动态增加按钮,动态删除按钮,一个函数响应动态增加的N个按钮的消息~
- 生成一个一维数组,有10个元素,都用随机数填充,用指针轮询的办法实现函数查找一个数是否存在。
- 一个字符变量存储到动态分配内存引发的输入问题解决--连续输入scanf函数存在缓冲区的问题
- 上篇文章介绍如何在settings中增加一个新模块,那如何隐藏一个已经存在的模块呢?
- 生成一个一维数组,有10个元素,都用随机数填充,用指针轮询的办法实现函数查找一个数是否存在。
- 【C语言】写一个函数,只要调用一次就可以将参数的值,增加1。