这些代码有几个地方看不懂了

作者在 2006-08-05 19:40:00 发布以下内容

在form1的destroy事件中有以下代码:

if select ("textfile")>0       && select 后面的代码是什么意思?

  use in textfile   这一整行都不明白。。。

endif


在command1的click事件中有以下代码:

if select ("textfile")=0

   create cursor textfile (filename c(60) mem m)  &&create cursor 后面这些也不懂,mem m中间为什么有个空格?

   append bland

endif

relpace textfile.filename with getfile("txt")  &&text.filename是什么意思?getfile除了指打开相应的文件类型外,还有别的用法吗?

 if empty(textfile.filename)

endif

select textfile

append memo mem from (textfile.filename) overwrite &&overwrite是什么意思?

this.parent.edit1.controlsource="textfile.mem"  &&this.parent是什么意思?

this.parent.command2.enabled=.T.


Local lc0ldsafe  &&这一行代码超不明白。。。

if !empty(textfile.filename)

 lc0ldsafe=set("safefy")   &&这个也不懂。。。

 set safety off  &&这是不是设置文件保护的?

copy memo textfile.mem to (textfile.filename)

set safety on

endif

至此结束,知道的朋友,指点一二,谢谢。。

 

 

默认分类 | 阅读 2359 次
文章评论,共0条
游客请输入验证码
浏览3461次
最新评论