打造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;其實這是一個基礎的資料結構問題，在經常拖放控制項程式設計的今天就全當練習資料結構吧。當然這個函數寫的不是最優的，我測試了一下替換一萬字的字符串，要半秒種的時間，時間複雜度還是比較高，如果各位有更優的辦法，歡迎討論！
