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;

---

上一篇：小学教师创新教育演讲稿

下一篇:低年级教学小策略