Delphi里Copy和Pos函数的用法

procedure TForm1.Btn1Click(Sender: TObject);
var i:Integer;
begin
   i:=Pos('+',edt1.Text);    // +所在位置

  showmessage(IntToStr(i));
 

  edt1.Text:=Copy(edt1.Text,Pos('+',edt1.Text),1);    // 提取+

 

  edt1.text:=Copy(edt1.text,1,pos('+',edt1.text)-1);  //截断+

 

end;

我做的一个小例子，放在delphi里运行一下你就明白了。