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

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

不重復初始化delphi默認字符串類型AnsiString會自動初始化為空。如下代碼：

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

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

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

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

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

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

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

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

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

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

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