如何分别截取分隔符两边的字符串？

Question

有字符串格式为 “abc...+dddd...' ，两段字符串以‘+’分隔，如何分别取得‘+’前后两段字符串？

Answer 1

用COPY 和 POST 函数 就可以搞定

Answer 2

取长度，然后pos＋位置，然后leftstr  rightstr

Answer 3

用COPY 和 POS 函数 就可以搞定

Answer 4

左边         copy(s,1,pos('+',s))
右边         delete(s,1,pos('+',s)+1)

Answer 5

int i:integer;
i:=pos('+','abc...+dddd...');
copy('abc...+dddd...',1,i-1);//取前面的
copy('abc...+dddd...',i,Length('abc...+dddd...')-i)//取后面的

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
  Str:String;
begin
  Str:=edit1.Text;
  Label1.Caption:=copy(Str,1,pos('+',Str)-1);
  Label2.Caption:=copy(Str,pos('+',Str)+1,length(Str));
end;