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 获得memo、richedit的光标位置

Delphi中转向语句break，continue，exit的作用

Delphi 实现显示文件目录大小

Delphi 判断奇数偶数

Delphi三层开发小技巧:tclientdataset的delta妙用

Delphi 使用泛型的 tarray 为动态数组排序

Delphi fdmemtable1 清空

Delphi 简单的倒计时算法

Delphi winsock 域名获取远程服务器ip

Delphi url取得文件名

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

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