String1中包含有String2,如何从String1中删除String2,并返回删除后的结果? 在线等待...立即结贴! String1中包含有String2,如何从String1中删除String2,并返回删除后的结果? 在线等待...立即结贴! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 String1 := StringReplace(String1, String2, '', [rfReplaceAll]);String1 := StringReplace(String1, String2, '', [rfReplaceAll, rfIgnoreCase]); // 不判断大小写 procedure TForm1.Button1Click(Sender: TObject);var s1,s2: String;begin s1 := '1234'; s2 := '23'; Delete(s1,Pos(s2,s1),Length(s2)); ShowMessage(s1);end; string.delete()好像有这个函数。如果没有就先用pos找到为止,删除string2.length个字符或者,找到pos之后,先copy到pos,在空过string2.length格,copy到结束。 请问用DELPHI 来编写butterworth低通滤波函?请教了,在线等 报错‘列名111无效’ 谁用过MCISendCommand这个函数? 如何控制volo view adoquery數據操作 谁能简单的给我介绍一下Delphi? shellexecute包含在哪个单元里 密码验证问题. 请问如何用D6调用16位动态连接库?(即如何用32位的程序调用16位的动态连接库) OpenDialog问题 请大家帮忙! 请教一个DLL兼容性的问题??? 100分
String1 := StringReplace(String1, String2, '', [rfReplaceAll, rfIgnoreCase]); // 不判断大小写
var s1,s2: String;
begin
s1 := '1234';
s2 := '23';
Delete(s1,Pos(s2,s1),Length(s2));
ShowMessage(s1);
end;
如果没有就先用pos找到为止,删除string2.length个字符
或者,找到pos之后,先copy到pos,在空过string2.length格,copy到结束。