delphi 截取某个字符之前的字段,，如 1234567-9，要分别得到

delphi 截取某个字符之前的字段,，如 1234567-9，要分别得到 - 之前的字符串和 - 之后的字符串

 

copy(string,1,pos('-',string)-1)
copy(string,pos('-',string)+1,length(string)-pos('-',string))