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倍。