转 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 
也可以直接作为参数