www.pudn.com > jq_transfile.ARJ > READERR.PRG

********************************************************* 
* 
* Name: ReadErr 
*       此程序演示MisTool工具中的readerror处理 
* 
********************************************************** 
set talk off 
set esca off 
set path to .. 
do LoadSDK                    && 装入SDK 
 
 
on read do _ReadHandle in MisTool 
priv Color 
Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,GR/W,W/B,N/W,W+/W' 
=defiwind("Input",4,20,12,60,"colo (Color) titl '输入错误处理'") 
=actiwind("Input") 
 
=DnRect(C2X(1)-2,R2Y(1)-2,C2X(38)+2,R2Y(7)+2) 
priv P_Var 
P_Var="Hope Soft" 
set curs on 
=Get(2,10,"P_Var","size 2,10 vali .f.") 
read 
on read 
=relewind("InPut") 
retu