频道分类

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

作者:admin 来源: 日期:2019/11/28 15:32:22 人气: 标签:

 
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 fdLocalSql使用方法下一篇:没有资料