自动填充序列号的问题

ricleon 2008-07-19 09:41:50

我想实现序列号在粘贴时自动填充，怎么样实现？
例：序列号
1111-2222-3333-4444
复制了上面的序列号之后，粘贴到4个指定的Edit中，怎么在粘贴时4个Edit自动填充整个序列号？

...全文

113 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

ricleon 2008-07-19

打赏
举报

to 1楼，应该如何监听，从哪里监听？是监听粘贴事件还是什么别的

yangkunjie 2008-07-19

打赏
举报

[Quote=引用 1 楼 yuqianyi1974 的回复:]

var
st:Tstringlist;
i: integer;
begin
st:=Tstringlist.Create;
st.Delimiter:='-';
st.DelimitedText:=1111-2222-3333-4444';
edit1.text:=st.Strings[0];
edit2.text:=st.Strings[1];
edit3.text:=st.Strings[2];
edit4.text:=st.Strings[3];
st.free;
[/Quote]
够快，正解

gyk120 2008-07-19

打赏
举报

http://www.west263.com/www/info/58154-1.htm
这个也许对你有用

yuqianyi1974 2008-07-19

打赏
举报

var
st:Tstringlist;
i: integer;
begin
st:=Tstringlist.Create;
st.Delimiter:='-';
st.DelimitedText:=1111-2222-3333-4444';
edit1.text:=st.Strings[0];
edit2.text:=st.Strings[1];
edit3.text:=st.Strings[2];
edit4.text:=st.Strings[3];
st.free;