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里运行一下你就明白了。