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 firedac 下的 sqlite [12] - 备忘录

Delphi fmx jpg 保存数据库 从数据库读取

Delphi snowflake一秒可生成500万id的分布式自增id算法―雪花算法

Delphi 系统服务和普通forms程序共存一体的实现

Delphi中获取当前用户sid

Delphi 精炼的数字转换人民币大写转换代码

Delphi获取内存及cpu信息的函数

Delphi从字符串中取出数字

Delphi richedit中插入带背景色文本的一种思路

Delphi检测用户超过5分钟没有操作键盘或鼠标

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

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