增加一個判斷記憶體變數存在的函式 (轉)

增加一個判斷記憶體變數存在的函式 (轉)[@more@] 

　　筆者在開發應用中曾經用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.?