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

提问者采纳

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