求Delphi 字符自定义函数

Question

大家好：
  如何将字符串：ZY-MY110031-01～ZY-MY110031-04分解成下列格式。
  ZY-MY110031-01;ZY-MY110031-02;ZY-MY110031-03;ZY-MY110031-04;
  中间用”;“隔开！
thanks

Answer 1

也就是将～替换为;是吧?
使用StringReplace函数就可以了!

Answer 2

这不是我想要的，ZY-MY110031-01～ZY-MY110031-04,中间还有两个号码.ZY-MY110031-02,ZY-MY110031-03.

Answer 3

+1 按你的需求这样就可以了！
用Tstrings 也没必要

Answer 4

先根据“~”将ZY-MY110031-01～ZY-MY110031-04分开成ZY-MY110031-01，ZY-MY110031-04再将ZY-MY110031-01分成ZY-MY110031-和01将ZY-MY110031-04分成ZY-MY110031-和04
for循环1-4再合并，就是麻烦点，没啥难度，你可以使用pos+copy也可以使用TStringList做字符串分割delphi中Tstringlist分割字符串的用法
http://www.cnblogs.com/freespider/archive/2009/12/30/1636146.html