delphi RemoveInvalid截取字符串某个字符前面的字符

本文整理自网络，侵删。

 
//ShowMessage (RemoveInvalid('人','中国人'));   //结果 中国

function RemoveInvalid(what, where: string):string;
var
tstr:string;
begin
tstr:=where;
while pos(what, tstr)>0 do
tstr:=copy(tstr,1,pos(what,tstr)-1) +
copy(tstr,pos(what,tstr)+length(tstr),length(tstr));
Result:=tstr;
end;

 

相关阅读 >>

Delphi 用文件流读取文本文件字符串的方法

Delphi环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决

Delphi使用idhttp.get('') 造成假死(堵塞),请问线程idhttp怎么才能做到不出错?

Delphi根据进程名强制关闭进程

system单元一些有用的变量或者常数

Delphi xe10.1 andriod app中文名称

Delphi 结束360safe和360保险箱进程

Delphi md5加密算法

Delphi url解�a函��(by kingron)

Delphi 日期相关总结20190702完结篇

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi RemoveInvalid截取字符串某个字符前面的字符