調用我的這個函數試試
function SwapStr(xString, xOldSplit, xNewSplit: String): String;
var
mPos: Integer;
mOldLen: Integer;
begin
if CompareText(xOldSplit, xNewSplit)<>0 then
begin
mPos:= AnsiPos(xOldSplit, xString);
mOldLen:= Length(xOldSplit);
while mPos>0 do
begin
Delete(xString, mPos, mOldLen);
Insert(xNewSplit, xString, mPos);
mPos:= ansiPos(xOldSplit, xString);
end;
end;
Result:=xString;
end;
樓上各位大蝦隻能修改第一個要替換的
不能修改字串中所有的