转 delphi SelText,GetText,SetText用法

转自:http://blog.163.com/wll_009/blog/static/1173731172009102452632968/

这几个都跟选区有关的,就是选中一串字符串,选中的会变蓝色
SelText 返回或设置包含当前所选择文本的字符串;如果没有字符被选中,则为零长度字符串 ("")。 
selstart就是选区的第一个字符
sellength就是选中的长度
seltext就是选中的字符了,就是这串字符串变蓝色。
比如:
文本框text1.text="1234567890"
现在选中"456"
就这样
text1.selstart=3
text1.selength=3
就行了
如果你想得到鼠标选中的字符串,那就这样str1=text1.seltext

Private Sub text1_GotFocus(Index As Integer)
   Text1(Index).SelStart = 0
   Text1(Index).SelLength = Len(Text1(Index).Text)
End Sub

1: Seltext 的作用 
实际上Sel是指Select,这里VB简写了。意思是选中的字符串(文本)。

2:Gettext 的作用 
是一个方法。Get就是“索取”的意思。即从剪贴板里得到信息。

3: Settext 的作用 
set是“设定”的意思。Set和Get是一对相反的功能,他在VB里有很多地方都出现。应该联系着记忆。

settext是过程,gettext和seltext是函数,在这里要说明一句 
settext和getText都是剪贴板对象clipboard的函数,也就是用的时候

clipboard.settext"solid" 
就是把字符串放进剪贴板

a=clipboard.gettext 
就是从简贴板中取字符串赋值给a

而seltext是将文本控件中的选中的字体赋值给别的变量 
a=text1.seltext 
也可以直接作为参数

上一篇:正确匹配URL的正则表达式


下一篇:iOS在类内部怎么访问实例变量比较好?