本文整理自网络,侵删。
//ShowMessage (RemoveInvalid('人','中国人')); //结果 中国
function RemoveInvalid(what, where: string):string;vartstr:string;begintstr:=where;while pos(what, tstr)>0 dotstr:=copy(tstr,1,pos(what,tstr)-1) +copy(tstr,pos(what,tstr)+length(tstr),length(tstr));Result:=tstr;end;
相关阅读 >>
Delphi环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决
Delphi使用idhttp.get('') 造成假死(堵塞),请问线程idhttp怎么才能做到不出错?
更多相关阅读请进入《Delphi》频道 >>