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 fmx 图像处理成圆角图像

Delphi删除文件

Delphi下的纯pascal的十六进制转十进制

Delphi 中判断windows系统是否是64位系统

Delphi 检测cpu内核数

Delphi之tstrings和tstringlists类

Delphi 2009 查看所有 unicode 字符

Delphi窗体固定在桌面上

Delphi 右下角滑动消息窗口

Delphi直接实现分享图片功能

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

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