Delphi代碼優(yōu)化教程：

字符串優(yōu)化
delphi有三種字符串類型：短字符串(string[n]，n=1..255)存儲區(qū)為靜態(tài)分配，大小在編譯時(shí)確定，這是繼承于bp for dos的類型；字符數(shù)組(pchar)主要是為了兼容各類api，在bp7中已經(jīng)出現(xiàn)，如今在delphi中更加應(yīng)用廣泛，其存儲區(qū)可以用字符數(shù)組靜態(tài)分配，也可用getmem手動(dòng)分配；而長字符串(ansistring)是delphi獨(dú)有的，其存儲區(qū)在運(yùn)行時(shí)動(dòng)態(tài)分配，最靈活也最易被濫用。

不重復(fù)初始化delphi默認(rèn)字符串類型AnsiString會自動(dòng)初始化為空。如下代碼：

delphi有三種字符串類型：短字符串(string[n]，n=1..255)存儲區(qū)為靜態(tài)分配，大小在編譯時(shí)確定，這是繼承于bp for dos的類型；字符數(shù)組(pchar)主要是為了兼容各類api，在bp7中已經(jīng)出現(xiàn)，如今在delphi中更加應(yīng)用廣泛，其存儲區(qū)可以用字符數(shù)組靜態(tài)分配，也可用getmem手動(dòng)分配；而長字符串(ansistring)是delphi獨(dú)有的，其存儲區(qū)在運(yùn)行時(shí)動(dòng)態(tài)分配，最靈活也最易被濫用。

var s:string；
begin
s:="";
……
end;

s:="";就屬多此一舉。但是值得注意的是這對函數(shù)返回值result無效。而一般說來，用var實(shí)參傳遞比返回字符串值要更快一些。

使用SetLength預(yù)分配長字符串（AnsiString）動(dòng)態(tài)分配內(nèi)存是AnsiString的一大長項(xiàng)，但容易弄巧成拙，一個(gè)典型的例子如下：

s2:=" ";
for i:=2 to length(s1) do s2:=s2+s1[i];

且不說可用delete取代之，主要問題在于上例的循環(huán)中s2的內(nèi)存區(qū)域被不停地重復(fù)分配，相當(dāng)費(fèi)時(shí)。一個(gè)簡單有效的辦法如下：

setlength(s2，length(s1)-1);
for i:=2 to length(s1) do s2[i-1]:=s1[i];

這樣s2內(nèi)存只會重新分配一次。

字符串與動(dòng)態(tài)數(shù)組的線程安全(Thread Safety)在delphi 5以前動(dòng)態(tài)數(shù)組與長字符串的操作這些非線程安全調(diào)用是由引用計(jì)數(shù)來處理其臨界問題的，而自delphi5起就改為直接在一些臨界指令前加lock指令前綴來避免這個(gè)問題。不幸的是這一修改的代價(jià)相當(dāng)昂貴，因?yàn)樵趐entiumⅱ處理器中l(wèi)ock指令相當(dāng)費(fèi)時(shí)，大概要耗費(fèi)額外的28個(gè)指令周期來完成這一操作，因而整體效率至少下降一半。解決這個(gè)問題的辦法只有一個(gè)，那就是修改delphi rtl核心代碼。在備份原文件后，將source/rtl/sys/system.pas中所有的lock替換為{lock}，當(dāng)然必須是整字替換。如此還未完全優(yōu)化，下一步是將delphi4運(yùn)行庫中也有的xchg指令去掉，因?yàn)樵撝噶钣须[含的lock前綴，所以必須將system.pas內(nèi)_lstrasg和_strlasg兩個(gè)過程中的 xchg edx，[eax] 替換為如下代碼：

mov ecx，[eax]
mov [eax]，edx
mov edx，ecx

ok大功告成，編譯一下，覆蓋system.dcu即可。如此其執(zhí)行效率將比delphi5提高6倍，比delphi4提高2倍。