国产探花免费观看_亚洲丰满少妇自慰呻吟_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.

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 普安县| 山丹县| 桐柏县| 周至县| 积石山| 买车| 武宁县| 泾川县| 通道| 故城县| 铁力市| 六安市| 景洪市| 天峻县| 壤塘县| 西畴县| 三台县| 明溪县| 三江| 辽宁省| 长乐市| 平昌县| 垣曲县| 靖安县| 墨玉县| 襄汾县| 莎车县| 二手房| 阳曲县| 社会| 长海县| 五河县| 河源市| 昌宁县| 黄石市| 凤阳县| 阳山县| 韶关市| 凭祥市| 湄潭县| 乌兰察布市|