国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發 > 綜合 > 正文

增加一個判斷內存變量存在的函數

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.

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 巴中市| 阜城县| 甘洛县| 江川县| 綦江县| 丁青县| 徐水县| 五原县| 通江县| 临夏市| 雷波县| 马边| 汕尾市| 广平县| 石棉县| 丹棱县| 固安县| 星座| 子长县| 临桂县| 体育| 米脂县| 乐陵市| 蒲城县| 青海省| 靖边县| 嘉善县| 刚察县| 阳泉市| 美姑县| 通渭县| 佛学| 民权县| 天全县| 象州县| 衡南县| 明光市| 永靖县| 资溪县| 密云县| 醴陵市|