自动填充序列号的问题

Question

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

Answer 1

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; 

Answer 2

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