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

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

 
　　笔者在开发应用系统中曾经用的onerror语句编写了一个判断内存变量的函数Exist()，非常方便实用，在此介绍给大家。
　　思路：先假设内存变量存在，然后将待判断的内存变量赋值给一个临时变量，若该内存变量不存在，则执行时必将出错，出错时将执行onerror语句，只要在onerror处理的函数中修改内存变量存在与否的标志即可。为了不影响调用程序的错误处理，保证该函数的通用性，在函数执行前后必须保存和恢复调用程序可能的错误处理。
　　源程序如下：
　　***EXISTPRG***
　　paraMemoVari
　　privateMexist,temp,OldError
　　Mexist=.T.　　假设内存变量存在
　　OldError=on(′error′)　　保存调用程序的错误处理
　　onerrordoErrHandle
　　temp=MemoVari
　　onerrorOldError　　恢复调用程序的错误处理
　　retuMexist　　返回存在标志
　　procErrHandle
　　　　Mexist=.F.　　出错则置存在标准为.F.

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>