首页 > 开发 > 综合 > 正文

增加一个判断内存变量存在的函数

2024-07-21 02:08:55

字体：大中小

来源：转载

供稿：网友

　　笔者在开发应用系统中曾经用foxpro的on error语句编写了一个判断内存变量的函数exist()，非常方便实用，在此介绍给大家。
　　设计思路：先假设内存变量存在，然后将待判断的内存变量赋值给一个临时变量，若该内存变量不存在，则执行时必将出错，出错时将执行on error语句，只要在on error处理的函数中修改内存变量存在与否的标志即可。为了不影响调用程序的错误处理，保证该函数的通用性，在函数执行前后必须保存和恢复调用程序可能的错误处理。
　　源程序如下：
　　***existprg***
　　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.

上一篇：SQL Story（十一）－－树状表游戏

下一篇：UNIX系统下informix自制开发工具构思介绍

学习交流

如何查找有故障的配件

如何查找有故障的配件...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

最牛同桌！我考了696分我同桌考了703分

2024-06-26 22:28:41

650分！高二女生考入北大：遗憾不能上高三

2024-06-26 22:26:16

男生估分600只考了397 妈妈：高考虽重要，但不代表所有

2024-06-26 22:23:01

唐尚珺回应是否会直播带货：有人出100万想和他合作！

2024-06-25 19:29:23

名校抢人名场面：清华、北大太拼了！

2024-06-25 19:22:14

男生高考语文满分！网友：第一次听说

2024-06-25 19:19:15

疑难解答

图片精选

网友关注