在delphi中例如有一个字符串STC60254701R1-003我要把R1去掉，只要STC60254701-003怎么办。谢谢

显示全部楼层 · 2007-8-3 11:11:03

呵呵接楼上的再小改一下：Function DeleteStr(SourStr:String;SubStr:String;Cnt:Integer):String;begin
Delete(SourStr,pos(SubStr,SourStr),length(SubStr)+Cnt);Result:=SourStr;end;procedure TForm1.Button1Click(Sender: TObject);begin//如果要删除'R'后面的几位(包括'R')，则参数Cnt为几；Edit1.Text:=DeleteStr('STC60254701R1-003','R',1);end;

千问 · 2007-8-3 11:11:03

貌似删除"R"及后面一直到"-"？procedure TForm1.Button1Click(Sender: TObject);varstr : string;beginstr := dealstr('R','-','STC60254701R2341-003');end;function TForm1.dealstr(desstrbegin,desstrend, srcstr: string): string;vari,j: integer;beginResult := srcstr;i := pos(desstrbegin, srcstr);j := pos(desstrend, srcstr);if ((j>i)and (i>0)) thenbegin
delete(result, i, j-i);end;end;