| 替换字符串 |
|
zslm 发表于 2008-7-4 12:53:00 |
function Replace(Dest, SubStr, Str: string): string;//dest是目标字符串,substr是要替换的字符串,str是新字符串
var
Position: Integer;
begin
while Pos(SubStr, Dest) > 0 do
begin
Position := Pos(SubStr, Dest);
Delete(Dest, Position, Length(SubStr));
Insert(Str, Dest, Position);
end;
Result := Dest;
end;
|
| 阅读全文 | 回复(0) | 引用通告 | 编辑 |
|
|
