使用多窗體時, 關于節約內存和加快啟動速度的思考與嘗試

剛接觸 Delphi 時, 曾以為 Pi 是個常量; 當我知道它是個函數時, 曾被觸動.

但 Pi 返回的不過是占 10 個字節的 Extended 類型, 后來竟發現一些對象也這樣干, 譬如:

---

function Clipboard: TClipboard; { Clipbrd } function Printer: TPrinter; { Printers } function Languages: TLanguages; { SysUtils } function RootSprigList: TRootSprigList; { TreeIntf } function ComClassManager: TComClassManager; { ComObj } function ThemeServices: TThemeServices; { Themes } function PropertyCategoryList: TPropertyCategoryList; { PropertyCategories }//這或許已是 Delphi 2010 中類似對象的全部.

---

特別是其中常用的 Clipboard、Printer、Languages, 無需建立就可以像對象一樣使用它們.

這是怎么實現的呢? 查看源碼, 它們都有類似的結構脈絡(以 Clipboard 對象為例):

---

interface ... function Clipboard: TClipboard; { 這一般在 interface 的尾部 } ... implementation ... varFClipboard: TClipboard; { 句柄變量 } ... function Clipboard: TClipboard; { 函數實現 } beginif FClipboard = nil thenFClipboard := TClipboard.Create;Result := FClipboard; end; ...

---

當然它們還有個釋放的問題, 但我覺得這些對象往往也是它所在的單元也在頻繁地使用, 一般到最后釋放.

它們巧妙的是:
在我們不使用時, 它們并沒有建立;
有使用時立即建立;
再使用時也不會重復建立.

真是非常簡單而巧妙的思路!

---

不能不提另外兩個相似的對象:

---

Application {Forms.TApplication} Screen {Forms.TScreen}//這個兩個更常用, 但它們不是函數, 的確是對象變量; 它們是在程序生存期一直存在的.

---

當一個工程有多個窗體時(恐怕單窗體的程序很少), 那些副窗體能否動態建立呢? 這樣做肯定會節約資源、加快啟動速度, 我想這無須測試.

上面的做法給了我們很好的借鑒, 不過我想到了兩種方法: 1、動態建立; 2、像上面一樣通過函數建立.

不管用哪種方法, 都先要禁止程序默認的對窗體的自動建立, 修改如圖:



當然也可以直接從工程文件中刪除相關的建立代碼.

---

?

//此時, 我們已經不能使用如下代碼打開窗體了: procedure TForm1.Button1Click(Sender: TObject); beginForm2.Show; { 這會出錯, 因為此時 Form2 還沒有建立 } end;//可以這樣: procedure TForm1.Button1Click(Sender: TObject); beginForm2 := TForm2.Create(Application);Form2.Show; end;//但如果想上面這樣, Form2 之后又駐留內存了, 怎么釋放它呢? 難道要和 Application 一起釋放嗎? //我們的目的是節約內存, 能不能這樣?: procedure TForm1.Button1Click(Sender: TObject); beginForm2 := TForm2.Create(Application);Form2.Show; { 但 Form2.ShowModal; 可以 }Form2.Free; end;//嘗試上面的代碼, 窗體剛剛顯示就被釋放了, 此路不通! //還是有解決方案的, 在 Form2 的 OnClose 事件中寫點代碼: procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); beginAction := caFree;{ caNone, caHide, caFree, caMinimize 分別是: 取消、隱藏、釋放、最小化 } end;//這樣 Form1 中的調用代碼也可以簡化如下: procedure TForm1.Button1Click(Sender: TObject); beginwith TForm2.Create(nil) do Show; end;

---

這是第一方案, 第二方案準備學習使用前面提到的 Clipboard 等設計手法.

模仿 Clipboard 的實現, 我們可以把 Form2 所在的 Unit2 單元改寫為:

---

unit Unit2;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm2 = class(TForm)procedure FormClose(Sender: TObject; var Action: TCloseAction);end;function Form2: TForm2;implementation{$R *.dfm}varFForm: TForm2;function Form2: TForm2; beginif FForm = nil thenFForm := TForm2.Create(Application);Result := FForm; end;procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); beginAction := caFree; end;end.

---

這里的窗體和 Clipboard 還是有區別, 因為我們在用完以后要馬上釋放, 所以代碼可以簡化為:

---

unit Unit2;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm2 = class(TForm)procedure FormClose(Sender: TObject; var Action: TCloseAction);end;function Form2: TForm2;implementation{$R *.dfm}function Form2: TForm2; beginResult := TForm2.Create(nil); end;procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); beginAction := caFree; end;end.

---

這樣我們在主窗體又可以這樣調用了:

---

procedure TForm1.Button1Click(Sender: TObject); beginForm2.Show; end;{ 這和 Delphi 默認的區別可大了, 這里的 Form2 是個函數; 動態建立、動態釋放 }

總結

以上是生活随笔為你收集整理的使用多窗体时, 关于节约内存和加快启动速度的思考与尝试的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。