RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串 > 正文

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

作者:admin 来源: 日期:2018/2/15 17:56:24 人气: 标签:

//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;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料