打造Delphi中字符串的replace函數
編者注：其實Delphi的StringReplace函數就是專為滿足這個需要而設的。但我們也將這篇文章發表出來——至少作者提供了一種替代方案，探索精神應該鼓勵！
這是小弟在這里的第一篇文章，加之自己水平也不是很高，就來討論一個基礎但是很實用的問題吧，希望能給大家一些幫助。
用過vb的或asp的朋友都知道，在vb里有一個很實用的replace函數，它的功能是把一個字符串中與子串（又叫模式串）相匹配的串替換為指定的串。舉個例子來說有這樣一個字符串：s:=’apple is apple!’ ，用replace函數replace(s,’apple’,’box’)后，s就變為’box is box!’。串的長度也相應改變了。這是一個很有用的函數，大家都知道在開發數據庫系統時會經常用到結構化查詢語句sql，而這個語句中對有些字符是比較敏感的，比如說單引號，如果在sql語句中出現單引號（因為單引號是在sql中規定的一個有意義的字符）程序就會出現意想不到的錯誤，甚至可以被他人利用使系統產生嚴重安全漏洞（這就是著名的sql注入式攻擊，相信大家還記得以前csdn論壇曾發現的這個漏洞吧）。這時你就需要在數據庫操作時候將單引號替換為其他的字符串或空串，在讀出數據的時候再替換回來，這樣數據記錄中就可以記錄單引號，而不發生錯誤了。 然而，我在delphi中卻沒有發現類似的函數（或許是我沒找到？），實在是很不方便，于是自己寫了一個，在以后的數據庫系統開發中就方便多了。說了那么多廢話，下面是代碼，加上注釋應該比較容易理解。
PRocedure replace(var s:string;const SourceChar:pchar;const RChar:pchar); //第一個參數是原串，第二個是模式串，第三個是替換串
var
ta,i,j:integer;
m,n,pn,sn:integer;
SLen,SCLen,RCLen:integer;//SLen表示原串的長度，SCLen表示模式傳的長度，RCLen表示替換串的長度
IsSame:integer;
newp:array of char;//用來保存替換后的字符數組
begin
SLen:=strlen(pchar(s));SCLen:=strlen(SourceChar);RCLen:=strlen(RChar);
j:=pos(string(SourceChar),s);
s:=s+chr(0);ta:=0;i:=j;
while s[i]<>chr(0) do //這個循環用ta統計模式串在原串中出現的次數
begin
n:=0;IsSame:=1;
for m:=i to i+SCLen-1 do
begin
if m>SLen then begin IsSame:=0;break; end;
if s[m]<>sourceChar[n] then begin IsSame:=0;break; end;
n:=n+1;
end;
if IsSame=1 then begin ta:=ta+1;i:=m; end else i:=i+1;
end;
if j>0 then
begin
pn:=0;sn:=1;
setlength(newp,SLen-ta*SCLen+ta*RCLen+1);//分配newp的長度，+1表示后面還有一個#0結束符
while s[sn]<>chr(0) do //主要循環，開始替換
begin
n:=0;IsSame:=1;
for m:=sn to sn+SCLen-1 do //比較子串是否和模式串相同
begin
if m>SLen then begin IsSame:=0;break; end;
if s[m]<>sourceChar[n] then begin IsSame:=0;break; end;
n:=n+1;
end;
if IsSame=1 then//相同
begin
for m:=0 to RCLen-1 do
begin
newp[pn]:=RChar[m];pn:=pn+1;
end;
sn:=sn+SCLen;
end
else
begin //不同
newp[pn]:=s[sn];
pn:=pn+1;sn:=sn+1;
end;
end;
newp[pn]:=#0;
s:=string(newp); //重置s，替換完成！
end;
end;
其實這是一個基礎的數據結構問題，在經常拖放控件編程的今天就全當練習數據結構吧。當然這個函數寫的不是最優的，我測試了一下替換一萬字的字符串，要半秒種的時間，時間復雜度還是比較高，如果各位有更優的辦法，歡迎討論！
