比如edit1.text='12345',用什么函数移动到2或3或4...的位置

Question

?

Answer 1

Edit1.SelStart:=2;
Edit1.SelLength:=1;?

Answer 2

我想用edit控件实现maskedit的显示格式,就是以____-__-__的方式让我录入日期,(就是在录入日期时,一直有分隔符'-')用maskedit会让我有很多局限
有网友介绍方法":
在edit的onkeypress事件中写控制代码
if not key in['0'..'9',#8] then
key:=#0;
if length(edit1.text)>3 then
edit1.text:=edit1.text+'-';
if length(edit1.Text)>7 then
edit1.Text:=edit1.Text+'-';
...
这种方法就是当执行到第4个键按下时,加'-',光标又移到第一个字符,如何让光标接在'-'后显示
我就想按位是不是取值,就这个意思