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到结束。 怎么实现 ReportBuild 只能预览,不能打印!在线等待! TDBGrid控件中如何出现类似TDBComboBOX的下拉框? 多个远程sqlserver数据库如何更新到同一局域网(比较大)内服务器上?? 在新建窗体时在哪里设置分辨率为800*600的窗体 本人是菜鸟,请问哪里有比较全的关于tee chart的使用说明? 一个小问题 那里有delphi7。0下载 两个关于外部应用程序的问题 字符串的问题 十万火急,delphi,sqlserver数据库开发。 请大家帮忙! 请教一个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到结束。