delphi 截取某个字符之前的字段,，如 1234567-9，要分别得到 - 之前的字符串和 - 之后的字符串
原文：http://www.cnblogs.com/lantianhf/p/5134244.html
