Delphi在字符串中删除指定字符串

本文整理自网络，侵删。

 
Delphi在字符串中删除指定字符串

function DelStr(hex,str:string):string;
var
i:Integer;
begin
for i:=1 to Length(hex) do
begin
if Copy(Hex,1,Length(str)) = str then
begin
Delete(Hex,1,Length(str))
end
else
begin
result:=result + Copy(Hex,1,1);
Delete(Hex,1,1);
end;
end;
end;
 

相关阅读 >>

Delphi如何自动重启程序

Delphi idhttp组件+idhttpserver组件实现文件下载服务

Delphi 3句话绕过xxx拦截删除桌面快捷方式

Delphi fdmemtable1内存表字段排序

Delphi中time消息的使用方法

Delphi 控制滚动条

Delphi中查找指定文件的例程

Delphi xe7 的 android bitmap转jpg图的参数问题

Delphi判断程序是否无响应

Delphi 中压缩流和解压流的应用

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

转载请注明出处：木庄网络博客 » Delphi在字符串中删除指定字符串