Delphi代碼優化教程：

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

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

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

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

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

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

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

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

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

這樣s2內存只會重新分配一次。

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

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

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