相当无聊之Delphi截取字符串123-456-7，得到123,456,7

  result1,result2,result3,result0:string;

  //addResult:='123-456-7';

  //addResult结果类似123-456-7

  //先得到 result1

  result1:=copy(addResult,0,pos('-',addResult)-1);//123

  result0:=copy(addResult,pos('-',addResult)+1,Length(addResult));//456-7

  // result0过度下，然后在 result0上截取，分别得到 result2， result3

  result2:=copy(result0,0,pos('-',result0)-1);//456
  result3:=copy(result0,pos('-',result0)+1,Length(result0));//7
  //Exit;