标签：
提问者采纳
copy(string,1,pos(‘-‘,string)-1)copy(string,pos(‘-‘,string)+1,length(string)-pos(‘-‘,string))
delphi 截取某个字符之前的字段,，如 1234567-9，要分别得到 - 之前的字符串和 - 之后的字符串
原文地址：http://www.cnblogs.com/lantianhf/p/5583335.html
