csmIniFile: TCusomIniFile;
begin
if blUseIniFile then//如果使用Ini文件
csmIniFile:= TIniFile.Create(csRootKey)
else
csmIniFile:= TRegistryIniFile.Create(csRootKey);
//接著就可以使用csmIniFile對Ini文件進行訪問，
//或者用類似訪問Ini文件的方式訪問注冊表。
七．關于TStream流以及TFileStream，TMemoryStream等等
TFileStream和TMemoryStream都繼承自抽象類TStream，這意味著我們可以使用一套代碼完成對文件和內存的存取操作。因此，定義一些接口的時候，我往往傾向于將參數的類型定義為抽象類，而不是具體類。比如，要完成保存功能的一個函數，定義成
function Save(AStream: TStream): Boolean；
就比定義成
function Save(AStream: TFileStream): Boolean；
要靈活的多。
前一個定義是具有前瞻性的，因為它可以適用于以后可能出現的新型態的流。而后一個定義只適用于TFileStream這種流（當然包括TFileStream的子類），呆板多了。
我的習慣：如果存在抽象類，那么盡量將參數定義為抽象類的類型，畢竟，我們無法預見未來。
文章來源于領測軟件測試網 http://www.kjueaiud.com/
