Borland C++Builder 入門課程

陳寬達 ( 陳昇瑋 ) 講師、技術作家、共享軟體作者 http://www.iis.sinica.edu.tw/~ s wc /index_c.html Borland C ++ Builder 入門課程

Outlines Win32 開發環境及應用程式架構認識 C++Builder 開發工具物件導向程式設計 VCL 概觀常用的 VCL 元件及類別一般應用程式撰寫資料庫程式設計除錯機制及工具結語

Win32 開發環境獨立的 4GB 位址空間多執行緒支援豐富的 Win32 API 動態連結程式庫（ DLL ）事件（訊息）驅動視窗及訊息行程、執行緒及訊息佇列

獨立的 4GB 位址空間－ Windows 95/98 架構 0xFFFFFFFF ~ 0xC0000000 1 GB 區域。用於 VxD 、記憶體管理、系統程式碼，所有 Win32 處理程序共享。 0xBFFFFFFF ~ 0x80000000 1 GB 區域。用於記憶體對映檔案及 Win32 DLL ，所有 Win32 程序共享。 0x7FFFFFFF ~ 0x00400000 2143289344 位元組，約 2044 MB ，每個 Win32 處理程序私有區域。 0x003FFFFF ~ 0x00001000 4190208 位元組，約 4 MB ，放置 DOS 及 Win16 應用程式。 0x00000FFF ~ 0x00000000 4096 位元組，用於偵測不合法指標。

獨立的 4GB 位址空間－ Windows NT 架構 2 GB 區域。用於作業系統、核心程式及驅動程式，應用程式無法存取。 0xFFFFFFFF ~ 0x80000000 0x7FFEFFFF ~ 0x00010000 2147352576 位元組，約 2047 MB ，每個 Win32 處理程序私有區域。 0x0000FFFF ~ 0x00000000 64 KB 區域。用於偵測不合法指標。 0x7FFFFFFF ~ 0x7FFF0000 64 KB 區域。用於偵測不合法指標。

多執行緒支援行程（ Process ）只是資源的集合位址空間檔案、 event 、計時器等等物件筆刷、 device context 等繪圖物件執行緒（ thread ）才是程式執行的關鍵執行緒保有自己的暫存器內容執行緒擁有自己的堆疊 CPU 會依照優先權等條件，切換到不同執行緒執行指令

何謂行程（ process ）？一個執行檔（ .EXE) ，躺在硬碟時叫做檔案；執行時，在記憶體中活動，叫做行程。行程是資源的集合，行程擁有： 4GB 的獨立位址空間核心物件（執行緒、檔案、 event 、 semaphores... ）程式中的變數、程式碼都屬於行程但是，行程沒有執行程式碼的能力！！

何謂執行緒（ thread ）？執行緒屬於行程。每一個行程至少擁有一個執行緒。當行程中最後一個執行緒結束時，行程也會跟著完蛋。執行碼由執行緒來執行。執行緒可任意使用行程的資源。作業系統排程的單位是執行緒。

多執行緒程式可能擁有多於一個執行緒的程式，就叫多執行緒程式。執行緒可隨時生滅，但務必維持至少一個執行緒存在。多執行緒程式不見得比單一執行緒程式效率高。所有執行緒共享同樣變數、物件及程式碼（除了執行緒區域變數外）。

多執行緒的優劣多執行緒的好處：簡化程式的撰寫讓無法切割的動作不影響其它工作的進行多執行緒的壞處：同步問題除錯困難

執行緒的分類具有視窗、訊息佇列及訊息迴圈的 GUI 執行緒，它的任務可能也與主執行緒相同，負責處理某些視窗的視窗訊息；也可能與工作執行緒相同。不具視窗、訊息佇列及訊息迴圈的工作執行緒，它的任務通常是費時冗長的資料萃取、計算或等待等動作，不需要外界（使用者）的互動便能運作，運算結束或結果取得後即停止執行，將結果交還主執行緒。

Win32 API 在行程的位址空間內，除了執行檔本身外，還有許多其它模組存在，這些模組的本體通常是 DLL 。 KERNEL32.DLL 、 USER32.DLL 及 GDI32.DLL 三者合稱為 Win32 API 三大模組，因為它們幾乎被所有的 Windows 程式使用。

Win32 API 呼叫 Delphi 本身函式以及 Win32 API 函式的不同情況：

DLL 釋名 DLL stands for Dynamic Linked Library . Dynamic 相對於 static 而言： Dynamic 指程式執行時才連結、載入 (late-binding) Static 指程式連結時就一併連結 (early-binding) Linked 指連結，直到 DLL 被載入後，才能確定 DLL 函式的位址（相對位址）。 Library 指函式庫， DLL 只能提供一道道的函式，不能提供類別、物件等等。

DLL 的重要性 Win32 應用程式無法不依賴任何 DLL 執行。絕大部分的 Win32 API 透過 DLL 形式來提供。如果沒有 DLL ，那麼在我們電腦上的執行檔大小至少會大上一倍。

DLL 的重要性即使是一個什麼事也不做的 console mode 程式，也要用到不少系統 DLL ：

DLL 的運作特徵 DLL 無法獨立執行，它必須存在於某個行程的位址空間內才能執行。系統會為 DLL 記錄載入次數（ reference count ），每次載入就加一，每次釋放就減一，載入次數為零時才真正將 DLL 從位址空間內卸除。 DLL 與程式語言及開發工具無關，只要符合某些基本條件即可撰寫、使用。有 implicitly linked 及 explicitly linked 兩種方式可使用 DLL 。

DLL 的載入方式 Implicitly linked ：隱式載入程式執行時由作業系統一併載入 implicitly linked DLLs 若 implicitly linked DLLs 不存在，則程式無法執行 Explicitly linked ：顯式載入在程式中，呼叫 LoadLibrary API 函式載入 DLL ，再呼叫 GetProcAddress 一一取得 DLL 函式的位址，才能使用不論 explicitly linked DLLs 存不存在，不會妨礙程式的執行

檢視 DLL 提供的函式 E:\WINNT\system32>dumpbin /exports user32.dll Microsoft (R) COFF Binary File Dumper Version 5.00.7022 Copyright (C) Microsoft Corp 1992-1997. All rights reserved. Dump of file user32.dll File Type: DLL Section contains the following Exports for USER32.dll 0 characteristics 336A2A2A time date stamp Sat May 03 01:53:46 1997 0.00 version 1 ordinal base 634 number of functions 634 number of names ordinal hint name 1 0 ActivateKeyboardLayout (00015B1A) 2 1 AdjustWindowRect (0000D704) 3 2 AdjustWindowRectEx (00007D8E) 4 3 AnyPopup (00043ABB) 5 4 AppendMenuA (00011F57) 6 5 AppendMenuW (0002D7A4)

訊息驅動 Windows is message based OS 大部分的使用者輸入，如滑鼠移動、滑鼠鍵事件、按鍵事件等等，都是由系統送出訊息告知應用程式作業系統會在各種事件發生時以訊息來通知應用程式，例如系統即將關閉、系統顏色變更等等應用程式之間也常以視窗訊息來溝通傳遞各式各樣的視窗訊息使用者產生的： WM_LBUTTONDOWN 、 WM_KEYDOWN 、 WM_MOUSEMOVE, etc 作業系統主動送出： WM_CREATE 、 WM_PAINT 、 WM_ENDSESSION 、 WM_TIMER, etc

處處皆訊息以 Microsoft Spy++ 觀察傳送（ send 或 post ）給特定視窗的視窗訊息

訊息的傳遞方式 Send messages 透過作業系統，直接呼叫適當的視窗函式類似函式呼叫，可取得傳回值在必須立即取得回應，或訊息處理前無法繼續的情況，使用 send messages 方式例如視窗建立訊息（ WM_CREATE ）、視窗關閉（ WM_CLOSE ） Post messages 將訊息「投遞」到訊息佇列內，再由訊息迴圈取出，分派給適當的視窗函式沒有傳回值，只是通知，訊息何時處理並沒有關係例如視窗重繪訊息（ WM_PAINT ）、按鍵訊息（ WM_CHAR ）

訊息處理機制 USER32.DLL 訊息迴圈視窗函式 messages post messages send / post messages while ( GetMessage (&Msg, NULL, NULL, NULL)) { TranslateMessage (Msg); DispatchMessage (Msg); } switch (Msg.Message) { // 視窗建立時 case WM_CREATE: ... // 按下滑鼠左鍵 case WM_LBUTTONDOWN: ... // 按下按鍵時 case WM_KEYDOWN: ... // 關閉視窗時 case WM_CLOSE: ... }

傳遞視窗訊息訊息結構傳遞訊息呼叫 SendMessage API ，直接讓對應的視窗函式處理呼叫 PostMessage API ，將訊息「投遞」到對應的訊息佇列視情況交互使用 SendMessage 及 PostMessage 按鍵及滑鼠通常使用 PostMessage 重繪視窗使用 PostMessage 即可，但若需要立即重繪，就使用 SendMessage typedef struct tagMSG { // 訊息結構 HWND hwnd; UINT message; WPARAM wParam; LPARAM lParam; DWORD time; POINT pt; } MSG;

使用視窗訊息模擬使用者行為改變視窗狀態 procedure TForm1.Button1Click(Sender: TObject); var Wnd: HWND; begin if wnd = FindWindow(nil, ' 小算盤 ') then begin PostMessage (Wnd, WM_KEYDOWN, WPARAM('1'), 0); PostMessage (Wnd, WM_DESTROY, 0, 0); end; end; procedure TForm1.Button1Click(Sender: TObject); var Wnd: HWND; begin if wnd = FindWindow(nil, ' 小算盤 ') then begin SendMessage (Wnd, WM_SETTEXT, 0, LPARAM(PChar(' 測試，測試’ ))); end; end;

行程、執行緒、訊息佇列及訊息迴圈每個行程擁有一個以上的執行緒每個執行緒 ... 只要呼叫 USER 或 GDI 函式，就擁有一個訊息佇列否則沒有訊息佇列訊息佇列存放「投遞」至此執行緒的所有訊息訊息迴圈負責取出訊息佇列內的訊息，再呼叫 DispatchMessage API 函式，將訊息交給視窗函式處理

行程、執行緒、訊息佇列及訊息迴圈行程執行緒訊息佇列程式碼視窗 C 視窗函式訊息迴圈視窗 C 視窗 D 視窗 D 視窗函式取出分派執行緒訊息佇列程式碼視窗 A 視窗函式訊息迴圈視窗 A 視窗 B 視窗 B 視窗函式取出分派工作執行緒程式碼

開發工具的型態及演進最早期， Win32 程式設計師撰寫程式的唯一方式就是呼叫 Win32 API 函式。這些 Win32 API 函式由 KERNEL32.DLL 、 USER32.DLL 和 GDI32.DLL 三大模組及其它大大小小 DLL 提供。這些 API 函式分為許多種類，各擅其職，只要好好善用它們，在作業系統提供的能力範圍內，沒有做不到的事。需求乃創造之本，於是程式庫出現了。挾著物件導向的浪潮，緊接著類別程式庫也出現了。

開發工具的型態及演進類別程式庫慢慢發展，功能不斷加入，規模越見龐大，負責的範圍也逐漸涉及應用程式的生滅及運作核心，最後終於蛻變為更高層級的 application framework 。最負盛名的兩套 application framework 分別是 Microsoft 的 MFC 及 Borland 的 OWL 。雖然有類別程式庫及精靈、專家等工具的輔助，仍有人不知足地想要發展能夠更快地開發應用程式的方法，於是有了 Visual Basic 這類可靠滑鼠完成大部分介面設計工作的 RAD 開發工具，最後才是 Delphi 及 Delphi 。

Win32 開發工具的比較比較 Visual C++ 、 C++Builder 及 Delphi 這三套開發工具，我將它們之間重要的差異列成下表：

C++Builder Overview Rapid Application Development tools Stand-alone executables, with no run-time libraries required to distribute applications Fully object-oriented, with a well respected and rock solid base Inherent database connectivity through the Borland Database Engine Painless upsizing from local databases to client/server databases

The C++Builder Environment Main menu Speed buttons Customize your own speed buttons Tools customization

Environment Configuration Preference Library Editor Display Colors Palettes Code Insight CORBA ClassExplorer

Component Palette Install / remove components Customize your own palettes

Object Inspector Property page Event page

Form Designer Configuring the Form Designer Creating a simple form Adding components to a form Moving and resizing components on a form A simple example of a form

Code Editor IDE-managed section Auto declared/cleared event-handlers Useful Hotkeys Bookmarking (Ctrl-Shift-<digit> to mark, Ctrl-<digit> to jump Ctrl-K-U, Ctrk-K-I for unindent, indent Ctrl-Shift-UP, Ctrl-Shift-Down for jumping between declaration and implmeneation Ctrl-Shift-C to help you finish the class declaration Ctrl+Enter to fast open files Ctrl-Shift-G to generate GUID (UUID)

The simplest event-handler Event handler （事件處理方法）回應訊息或事件的函式事件處理方法與一般成員函式（ member function ）並無二異 void __fastcall TForm1::Button1Click(TObject *Sender) { Close(); }

Project, Unit and Forms What makes up a project in C++Builder How to invoke and use the project manager The basic file types used by C++Builder how units and forms are related The CPP project and MAK file CPP unit and DFM files How to set project options The steps involved in compiling and linking a C++Builder project

The file types used by C++Builder BPR MAK CPP 、 OBJ DFM RES H 、 HPP DSK 、 DOF ILC 、 ILD 、 ILF PAS 、 DCU

CPP Project File #include <vcl.h> #pragma hdrstop USERES("Project1.res"); USEFORM("Unit1.cpp", Form1); WINAPI WinMain (HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TForm1), &Form1); Application-> Run() ; } catch (Exception &exception) { Application->ShowException(&exception); } return 0; }

Using the components Placing components on forms Visual & non-visual components Component relations Naming convention Copy & paste Group select Resizing & alignment Shared event-handler

Visual & Non-Visual Components Visual components Visible at both design-time and run-time Have Left 、 Top 、 Width 、 Height properties Have Show 、 Hide methods Have Owner and Parent property Non-visual components Visible only at design-time Encapsulate functionality only Do not have Parent property

Component Relations Owner 擁有 Form 擁有其上的所有元件 Owner 被摧毀時，會摧毀它所擁有的所有元件所有元件皆可設定 Owner ，若沒有 Owner 也沒有關係，不會被自動摧毀而已 Parent 置放座標相對於 Parent 而言只與顯示能力相關不負責元件的建立與摧毀可視元件才有 Parent

Our First C++Builder Program void __fastcall TForm1::Button1Click(TObject *Sender) { ShowMessage("Written by Kuan-Ta Chen"); } void __fastcall TForm1::Button2Click(TObject *Sender) { Close(); }

What’s a form ? 類別宣告變數宣告 class TForm1 : public TForm { __published: // IDE-managed Components TButton *Button1; TLabel *Label1; TButton *Button2; void __fastcall Button1Click(TObject *Sender); void __fastcall Button2Click(TObject *Sender); private: // User declarations public: // User declarations __fastcall TForm1(TComponent* Owner); }; TForm1 *Form1;

What’s a form ? 程式碼建立實體 __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } void __fastcall TForm1::Button1Click(TObject *Sender) { ShowMessage("Written by Kuan-Ta Chen"); } void __fastcall TForm1::Button2Click(TObject *Sender) { Close(); } Application->CreateForm(__classid(TForm1), &Form1);

Multi-Appearance of Forms object Form1: TForm1 Left = 341 Top = 337 Width = 148 Height = 179 Caption = 'Form1' ... object Button1: TButton Left = 32 Top = 16 ... end object Button2: TButton Left = 32 Top = 56 ... end object Button3: TButton Left = 32 Top = 96 ... end end = =

Using the form What’s MainForm ? Form properties Border Icons Border Style Form Style Window State Auto-Create & Available forms Dynamically create form Show / ShowModal methods Show just pop-ups the form ShowModal will not return till the from close

Create Form On Demand Reuse the auto-created form 若 form 時常使用若 form 上的資訊必須維持，且不方便另外儲存 Create form on demand 不一定會使用到的 form 不只建立單一副本，可能建立多重副本的 form void __fastcall TForm1::Button1Click(TObject *Sender) { AboutBox->ShowModal(); } void __fastcall TForm1::Button1Click(TObject *Sender) { TAboutBox* box = new TAboutBox(this); box->ShowModal(); delete box; }

Modalless and Modal Form Modalless form 一般的 form Form 顯示後，程式會繼續執行必須呼叫 Close 方法關閉 Modal form 對話盒擁有自己的訊息迴圈 Form 關閉前，程式不會繼續執行只要按鈕的 ModalResult 屬性不為 mrNone ， form 就會自動關閉

C++ Language The evolution of programming paradigm The definition of object-oriented programming Why object-oriented programming ? The C++ programming language

Programming Paradigm How we think and write programs ? program domain problem domain The evolution: procedural programming modular programming ADT programming object-oriented programming generic programming

Procedural Programming Paradigm FORTRAN, C, Pascal There are many procedures (operations) Data is placed at global areas or inside procedures Procedures are designed to process data Program = data + procedures which process the data

ADT Programming Paradigm CLU, Ada, Module-2 ADT (abstract data types) programming is also called object-based programming Encapsulate operations and data inside objects Program = objects and their interactions

Object-Oriented Programming Paradigm Simula, Smalltalk, Java 以繼承 (inheritance) 和動態繫結 (dynamic binding) 擴充了 ADT 繼承 : 既有實作碼的重複運用動態繫結 : 既有之公開介面的重複運用 C++ is a mixed-paradigm programming language

物件導向程式設計區分 OO 、 OOP 及 OOPL 將程式碼及資料包裝起來優點：資訊隱藏介面與動作不再緊密結合減少大量程式碼模組化程度提高缺點：要經過長時間的練習才能設計出好的物件導向程式

物件導向要素－封裝將資料與動作包起來，視為一個體個體的內部結構無從得知個體達成目的的動作無從得知在不更動介面的前提下，可以自由地更動內部結構及動作類別及物件類別是抽象的描述物件是具體的實物個體動作 C 變數 A 變數 B 動作 D 介面被使用

物件導向要素－繼承子代擁有父代的所有特徵，可以修改行為，也可以增加新的特徵或能力泡泡龍吃（水果）身高體重噴（泡泡）酷斯拉吃（魚）身高體重噴（熱氣）繼承繼承姓名生蛋爬蟲類吃身高體重噴

物件導向要素－多型針對繼承自同一類別的子類別物件命令相同，但表現方式也許各有不同例如命令一個「爬蟲類」物件「吃」：對於泡泡龍，牠就會吃水果對於酷斯拉，牠就會吃魚例如命令一個「農夫」物件「收割」：對於稻農，他就會開割稻機對於茶農，他就會趕快採茶

C++ 的由來西元 1980 年， Bjarne Stroustrup 發明了 "C with Classes" 語言，因為他想為 C 語言加入如同 Simula67 語言般的事件驅動機制。直到 1983 年夏天，才由 Rick Mascitti 創造出 C++ 這個語言名稱。

如何看待 C++ ? 如果你懂得 C 語言，那麼可以這樣看待 C++ 語言：它是比較好的 C 語言它提供資料抽象化機制它支援物件導向程式設計，所提供的語法及字眼讓你可以很輕易地將物件導向精神落實到 C++ 程式中 C++ 語言的功能強大，無庸致疑， template 、 exception handling 、 RTTI 、 Standard Library 等等功能不斷地加強翻新。由於使用者眾，要求必多，期望必高，再加上 C++ 本身定位在功能強大範圍廣泛的通用性語言，如江海之納百川， C++ 自然日益複雜。

強大複雜的 C++ 著名的雜誌 C++ Journal 上曾有段話：雖然是最流行的物件導向程式語言，但除非你有足夠的耐心及精神來全盤掌握它，否則輕易嘗試的後果可能只會得到一臉的挫折。當然囉，十分的複雜也帶來十分的便利及高度的成就感及樂趣，端視你如何取捨。如果你認為 C++ 還不算太複雜，那麼請你解釋何謂 protected abstract virtual base pure virtual private destructor ，而你又會在何時需要它呢？ Tom Cargill C++ Journal Fall 1990

強大複雜的 C++ 並不是語言中的每一項特質都要成你的下一座攀爬目標。究竟要不要使用某項性質 , 我們應該以程式的邏輯做決定 , 而不是只因為它在那裡。 -- C++ Primer

C++ 類別宣告使用 class 關鍵字。類別裡可以加入任意數目的變數及函式宣告。建構函式與類別名稱相同。解構函式為類別名稱前頭加上 ~ 。 class TMyClass { int a, b, c; TMyClass(<parameters>); // 建構函式 ~TMyClass(void); // 解構函式 void draw(); int draw(int x, int y, int z); };

C++ 物件必須先有類別，才能建立物件。在堆疊中建立物件：在資料節區建立物件：在累堆建立物件： void foo(void) { TCat cat; // 在堆疊中建立 TCat 類別的 cat 物件 , 進入 foo 時才建立 cat.Meow(); // 呼叫 cat 物件的 Meow() 方法 } TCat cat; // 在資料節區中建立 TCat 類別的 cat 物件 , 程式啟動後即建立 void foo(void) { cat.Meow(); // 呼叫 cat 物件的 Meow() 方法 } void foo(void) { TButton* btn = new TButton(this); // 在堆疊中建立 TButton 類別的 btn 物件 btn->Show(); // 呼叫 btn 物件的 Show() 方法 }

TMammal 類別 TCat 及 TDog 類別 TMammal and child classes class TMammal { private : AnsiString FName, FEyeColor; int FAge; public : __fastcall TMammal( void ); virtual void __fastcall Speak( void ) = 0; }; class TCat : public TMammal { virtual void __fastcall Speak( void ) {ShowMessage(“I’m Cat”);} }; class TDog : public TMammal { virtual void __fastcall Speak( void ) {ShowMessage(“I’m Dog”);} };

在累堆建立 TCat 及 TDog 物件呼叫 TMammal 類別宣告的 Speak 函式由於多型機制，兩個物件呈現不同的結果 The Power of Polymorphism void __fastcall TForm1::Button1Click(TObject *Sender) { TMammal* Mammal = new TCat (); Mammal->Speak(); delete Mammal; } void __fastcall TForm1::Button2Click(TObject *Sender) { TMammal* Mammal = new TDog (); Mammal->Speak(); delete Mammal; }

C++ Enhancement for BCB The new keywords adds to C++Builder New class scoping options in C++Builder How C++Builder includes DFM resources in projects How to use open arrays in C++Builder How to handle VCL exceptions How to throw VCL exceptions How to create your own custom VCL exceptions

Added Keywords New access specifier for classes __published __fastcall modifier for methods

Properties 使用起來像變數，但事實可能是內部變數的代名呼叫成員函式使用 __property access specifier class TMyClass { private: TColor FColor; TColor __fastcall GetColor( void ); public: __fastcall TMyClass( void ); __property TColor Color = { read = FColor, write = SetColor }; };

DFM resources 將 form 及 DFM 資源結合起來指示連結程式將 DFM 資源嵌入執行檔 # include <vcl\vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------- #pragma resource "*.dfm” // <- binding DFM resources TForm1 *Form1; //--------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { }

AnsiString Class and Variant AnsiString 方便好用的字串不必操心記憶體配置問題 c_str() member function reference count Variant void __fastcall TForm1::Button1Click(TObject *Sender) { Variant x; x = 13; edtTest->Text = IntToStr( x + 12 ); x = "Hello, world"; ShowMessage( x ); }

Set To create a set, you must supply three template parameters. 例如： typedef Set <char, 'A','Z'> UPPERCASESet; UPPERCASESet s;

Open Array OPENARRAY 巨集 ShowMessage(Format("%s %d", OPENARRAY (TVarRec, ("Hello", 123))));

Traditional Methods for Error Handling Dirty, inconvenient and easily generate mistakes if ((pBuffer = malloc(1000)) == NULL) { /* error processing code here; */ } if ((fp = fopen(“data.txt”, “r”)) == NULL) { /* error processing code here; */ }

Handling VCL Exception The Exception Class - Exception try { edtTotal->Text = IntToStr( StrToInt( edtOp1->Text ) / StrToInt( edtOp2->Text ) ); } catch ( EDivByZero& ) { ShowMessage( "Cannot divide by zero" ); } catch ( EConvertError& ) { ShowMessage( "Error during conversion" ); }

Unhandled VCL Exceptions 所有沒被 catched 的例外，最後會被此處的 catch block 抓到，秀出錯誤訊息，結束程式 WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TForm1), &Form1); Application->Run(); } catch ( Exception &exception) { Application->ShowException(&exception); } return 0; }

Throwing exceptions 主動丟出例外，將例外處理程式碼集中可達成 goto 效果。 try { if (numItems == 0 ) throw EDivByZero( "Cannot divide by zero" ); // ^ throw your own exception else edtAvg->Text = FloatToStr( sum / numItems ); } catch ( EDivByZero& ) { edtAvg->Text = FloatToStr( 0.0 ); throw; // <- re-throw the same exception }

Creating Custom Exception Class 定義新的例外類別 class EInvalidBalance : public Exception { public: virtual __fastcall EInvalidBalance( String msg ) : Exception( msg ) {}; };

VCL 元件瀏覽 Standard 頁次 Additional 頁次 Win32 頁次 System 頁次 Internet 頁次 Dialogs 頁次 Win 3.1 頁次 Samples 頁次 ActiveX 頁次

程式實作－自動發信 void __fastcall TForm1::Label1Click(TObject *Sender) { ShellExecute(Handle, "open", "mailto:kuan@ilife.cx", NULL, NULL, SW_SHOW); }

程式實作－影像載入 void __fastcall TForm1::Label1Click(TObject *Sender) { if (OpenPictureDialog1->Execute()) Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); }

Typecasting VCL objects Without RTTI (Old methods, Static) (( MyDifferentObject *) (MyObject))->SomeProperty; With RTTI (Run-Time Type Information) void __fastcall TForm1::Button1Click(TObject *Sender) { if (dynamic_cast<TButton *>(Sender)) (dynamic_cast<TButton *>(Sender))->Caption="Button"; if (dynamic_cast<TMenuItem *>(Sender)) (dynamic_cast<TMenuItem *>(Sender))->Caption="Menu"; }

程式實作－動態建立元件 void __fastcall TForm1::ButtonClick(TObject *Sender) { Edit1->Text = Edit1->Text + AnsiString(dynamic_cast<TComponent*>(Sender)->Tag); }

程式實作－操作字串陣列 void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString S; if (InputQuery(Application->Title, " 請輸入字串 ", S)) ListBox1->Items->Add(S); }

程式實作－ TCanvas 畫布

程式實作－ MDI 應用程式 void __fastcall TMainForm::mnuNewClick(TObject *Sender) { if (OpenDialog1->Execute()) { TTextForm* frm = new TTextForm(this); frm->Caption = OpenDialog1->FileName; frm->Memo1->Lines->LoadFromFile(OpenDialog1->FileName); frm->Show(); } }

程式實作 – Other Possibilities Connect to SMTP server and send mail directly. HTTP resources grabber (+ regular expression parser library) ... Please give your suggestions.

VCL 的多重面貌單身時期原始碼編譯後的單元類別及元件死會時期執行檔 Run-Time Package

VCL 的原始碼面貌 VCL 就是以 Object Pascal 語言撰寫而成的超大型類別程式庫，分置於下列目錄： Delphi\Source\Vcl Delphi\Source\Decision Cube Delphi\Source\Internet Delphi\Source\Property Editors Delphi\Source\Toolsapi 統計的結果， Delphi 5 的 VCL 原始碼約二十萬行左右。

VCL 的編譯後單元面貌 VCL 就是編譯過的 Object Pascal 單元，置於 Delphi\Lib 目錄，以 DCU 及 DCP 檔案格式存在。 Delphi 5 的 VCL DCU 檔案約有四百多個。

VCL 的類別及元件面貌 VCL 就是撰寫 Delphi 程式時，提供給程式設計師的那些現成的類別及元件。元件也是類別，只不過是給 TComponent 後代類別的特別稱號，程式碼中可以使用的類別及元件依含入的標頭檔而定。 Delphi 4 VCL 包含的類別約有一千五百個左右，其中元件約有二百餘個。

VCL 的執行檔面貌 VCL 就是 Delphi 執行檔裡頭，至少佔有好幾百 K 大小的機械碼。這是一個什麼事都沒做的 console mode 程式：大小只有 16K ，因為它只用到 RTL 的 System 單元，與 VCL 完全無關。而這個呢，是一個什麼事都沒做，但包含一個 form 的 VCL 程式： 292864 位元組減掉 16384 位元組等於 276480 位元組，多出來的這些就是 VCL 機械碼。 99/11/25 08:09p 16,384 Project1.exe 99/11/25 08:10p 292,864 Project1.exe

VCL 的 RunTime Package 面貌 VCL 就是隨 Delphi 附送的一堆 runtime packages 檔案。這些 runtime packages 其實是特殊形式的 DLL ，只有 Delphi 應用程式才能認得（在 RTL 的支援下）這些 runtime packages ，並且使用置於其中的 VCL 類別、物件、函式及變數。正常情況下， DLL 只能提供一道道的函式供程式呼叫，沒有辦法經由 DLL 供給類別或物件，簡單地說， DLL 對外的介面必須是函式。 Delphi 提供的 packages 克服了這個問題，它設計出特別的 DLL 介面，讓置於裡頭的類別、物件及變數也可以直接被載入它的 Delphi 應用程式使用。

VCL 的 Run-Time Package 面貌這是一個什麼事都沒做，包含一個 form 的一般 VCL 程式：這是一個什麼事都沒做，包含一個 form 的一般 VCL 程式，但指定使用 runtime packages ： 13824 位元組減掉 292864 位元組等於 -279040 位元組，少掉的那些機械碼到哪去了？它們憑空消失了，因為，只要在 Delphi 版本相同的前提下， VCL 就是 VCL ，放在哪都沒差。指定使用 runtime packages 的結果是，不像平常一樣將 VCL 編入執行檔， VCL 機械碼改由 runtime packages 提供。 99/11/25 08:10p 292,864 Project1.exe 99/11/25 08:20p 13,824 Project1.exe

VCL 的 Run-Time Package 面貌 Runtime packages 就是 DLL ，可被多個行程分享使用。不使用／使用 runtime packages 的 Delphi 程式執行狀況：

VCL 的 Run-Time Package 面貌

學習 VCL 類別架構由於物件導向的繼承特性，類別庫（也就是包含一大堆類別的程式庫）比起一般的函式庫還要好記、好學。假設我知道下列幾件事實：我知道 TComponent 是元件的始祖，有 Name 及 Tag 兩個屬性。我知道 TControl 是可視元件的始祖，有 Left 及 Right 兩個屬性，有 Show 及 Hide 兩個方法。我知道 TButton 是元件，而且是看得見的元件，所以它一定是 TControl 類別的後代，也是 TComponent 類別的後代，因為 TControl 繼承自 TComponent 。那麼，就可以歸納出結論－ TButton 一定有 Name 、 Tag 、 Left 、 Right 四個屬性，也一定有 Show 及 Hide 兩個方法可用。

學習 VCL 類別架構學習類別庫時切勿死背，絕對是有訣竅的：先求對類別庫的整體架構有著清楚的大局觀，並瞭解為什麼要有這樣的設計。牢記重要類別在類別庫中的地位、繼承關係以及它們的屬性與方法（即特性與行為），別擔心，就算是再龐大的類別庫，重要的類別頂多也只十來個。對於不清楚其繼承關係的類別，試著藉由特性及行為來判斷它在類別庫中的位置。對於不清楚其特性及行為的類別，試著藉由它在類別庫中的位置來進行判定。

VCL 核心類別下列三個核心類別是 VCL 裡最重要的類別，它們是其它類別的基礎建設，請務必清楚認識它們。

VCL 核心類別－ TObject Object Pascal 和 Java 一樣，具有唯一的始祖類別，這種架構稱為 single-rooted hierarchy 。它的特性是：程式員沒有辦法建立一個不繼承自始祖類別的類別。在 Object Pascal 語言中，始祖類別叫做 TObject ；在 Java 語言中，始祖類別叫做 Object 。這種架構由編譯器支援，強制所有類別一定都直接或間接繼承自 TObject 類別。 C++ 不是 single-rooted hierarchy 架構。

VCL 核心類別－ TObject Single-rooted hierarchy 架構的好處對於程式中的任何物件，不論是自己生的，或是路上撿的，通通可以將它當成 TObject 物件來處理。可在 TObject 類別加入每個物件都要具備的能力，例如建立／摧毀物件本身、訊息處理機制、 RTTI 支援、垃圾回收（ garbage collection ）機制等等。由於 TObject 類別的建立／摧毀機制，強迫所有物件都建立在累堆（ heap ）中，這可大大簡化物件傳遞的處理。 C++ 不是 single-rooted hierarchy 架構，得到了多一點的使用彈性及靈活度，但是以上的優點通通沒有。

VCL 核心類別－ TObject TObject 類別提供下列諸多能力：配置、初始化及歸還物件本身的記憶體 C++ 能夠在堆疊、資料節區及累堆建立非 VCL 物件 C++ 只能在累堆建立 VCL 物件 Object Pascal 必須在累堆建立所有物件類別資訊及 RTTI 支援讓程式在執行時期也能得知資料型態及類別的資訊訊息處理支援支援訊息分派處理機制

VCL 核心類別－ TObject C++ 能夠在堆疊建立非 VCL 物件： C++ 能夠在資料節區建立非 VCL 物件： C++ 及 Object Pascal 只能在累堆建立 VCL 物件： void foo(void) { TCat cat; // 在堆疊中建立 TCat 類別的 cat 物件 , 進入 foo 時才建立 cat.Meow(); // 呼叫 cat 物件的 Meow() 方法 } TCat cat; // 在資料節區中建立 TCat 類別的 cat 物件 , 程式啟動後即建立 void foo(void) { cat.Meow(); // 呼叫 cat 物件的 Meow() 方法 } void foo(void) { TButton* btn = new TButton(this); // 在累堆中建立 TButton 類別的 btn 物件 btn->Show(); // 呼叫 btn 物件的 Show() 方法 delete btn; }

VCL 核心類別－ TObject TObject 類別支援訊息分派處理機制，這是與編譯器合作的結果。巨集暗中呼叫 TObject 類別的 Dispatch 方法進行訊息分派動作 TCCalendar = class(TCustomGrid) private ... procedure WMSize(var Message: TWMSize); message WM_SIZE; end;

VCL 核心類別－ TPersistent TPersistent 類別最主要的功能是，能被 TFiler 物件永續機制類別讀寫。因為 TFiler 類別特別指明它只想處理 TPersistent 物件的結果，所以可說此能力是被動地產生，而非 TPersistent 類別本身的建樹。 TPersistent 類別其它的貢獻：物件複製機制 RTTI 資訊的產生

VCL 核心類別－ TPersistent 提供物件複製機制，但不提供物件複製時的真正動作物件複製機制兩大金剛 AssignTo 方法將物件本身的內容指派給別人 Assign 方法讓別人將它的內容指派給自己對於實際的物件複製動作，完全幫不上忙。 TPersistent = class(TObject) protected ... procedure AssignTo(Dest: TPersistent); virtual; public ... procedure Assign(Source: TPersistent); virtual; end;

VCL 核心類別－ TPersistent 不太明顯的貢獻是，編譯器會為 TPersistent 類別的所有子類別產生 RTTI 。並不是每個類別都需要 RTTI 的支援，若產生不必要的 RTTI ，只會浪費執行檔空間，徒增檔案大小而已。在 Delphi 中， RTTI 最主要的貢獻是：設計時期，在整合環境中，讓 Form Designer 、物件檢視器、元件盤等等 RAD 設計工具順利運作。執行時期，與 VCL 的物件永續機制配合，從資源區段讀取 form 的描述資料，動態建立 form 及其上所有元件，重現設計時期的狀態。

VCL 核心類別－ TPersistent 所以，只要是 VCL 元件以及它們所包含／使用的屬性資料型態、類別等等，通通需要 RTTI 的支援；若沒有 RTTI ， Delphi 根本不可能成為 RAD 開發工具。直接由 TObject 繼承而來的新類別的 ClassInfo 方法傳回 nil ，表示它不具有 RTTI ；但由 TPersistent 繼承的新類別的 ClassInfo 方法將會傳回指向 RTTI 資料的非 nil 指標。 { TPersistent abstract class } {$M+} TPersistent = class(TObject) ... end; {$M-}

VCL 核心類別－ TComponent TComponent 類別以下，直接或間接繼承自 TComponent 的類別，就叫做元件。 TComponent 類別的特性是：能夠安裝到 Delphi 整合環境，出現在元件盤上，並且可被拖曳至 Form Designer 上頭操作。具備擁有其它元件的能力。提供 Name 屬性，所以 VCL 元件有所謂的「名稱」，便於設計時期的操作。能將 ActiveX Control 或 COM 物件包裹起來，成為 VCL 元件。

VCL 控制項類別這是 VCL 的重要控制項類別。它們的類別名稱全都以 "Control" 結尾，且在執行時期都可以顯示在畫面上。

VCL 控制項類別它們都是 TComponent 的後代，所以通通都是元件，只是特性用途各有不同。

VCL 控制項類別－ TControl TControl 是所有可視元件的始祖，程式執行時，使用者能夠看到並且操作它們。 TControl 類別的特性為：提供重繪本身的能力以及其它與顯示能力相關的方法及屬性。提供 VCL 元件訊息處理機制。擁有元件拖曳、置放或嵌入其它 VCL 元件的能力。

VCL 控制項類別－ TWinControl TWinControl 是所有視窗元件的始祖，它們不只是可視元件，因為它們本身會建立一個視窗，擁有視窗函式，在 Windows 標準的視窗訊息驅動架構下運作。 TWinControl 類別的重要性為：擁有視窗、視窗 handle 及視窗函式。能夠擁有鍵盤輸入焦點。能夠包含（ contains ）其它 TControl 元件，請注意，「包含」與「擁有」並不同。

VCL 控制項類別－ TGraphicControl TGraphicControl 是所有自製圖形元件的始祖，它們是可視元件，不過與 TWinControl 元件不同，這些元件不會建立視窗，因此無法擁有鍵盤輸入焦點。 TGraphicControl 的特性、行為與它的父類別 TControl 完全相同，只不過多了兩點加強：攔截 WM_PAINT 訊息，提供 Paint 虛擬方法供後代類別改寫。提供 Canvas 屬性供後代類別使用。主要功用是，擔任自製圖形元件的父類別，讓元件撰寫者繼承使用。由它衍生新的元件時，只要改寫 Paint 方法，就可在其中繪製元件外觀，創造出新的 non-windowed 視覺元件。

VCL 控制項類別－ TCustomControl TCustomControl 是所有自製視窗元件的始祖，它們具有視窗，擁有視窗函式，在 Windows 標準的視窗訊息驅動架構下運作。如同 TGraphicControl 與 TControl 的關係， TCustomControl 的特性、行為與它的父類別 TWinControl 完全相同，只不過多了兩點加強：攔截 WM_PAINT 訊息，提供 Paint 虛擬方法供後代類別改寫。提供 Canvas 屬性供後代類別使用。主要功用是，擔任自製視窗元件的父類別，讓元件撰寫者繼承使用。由它衍生新的元件時，只要改寫 Paint 方法，就可在其中繪製元件外觀，創造出新的 windowed 視覺元件。

VCL 控制項類別分類以上這四個控制項類別，其實這樣分類會更清楚：具有代表性，提供主要功能：不具視窗： TControl 擁有視窗： TWinControl 供元件撰寫者繼承使用：不具視窗： TGraphicControl 擁有視窗： TCustomControl 由於 VCL 包裝得漂亮的緣故，雖然這兩類元件骨子裡運作的方式截然不同，但是不管是用起來、看起來都一模一樣，難以分別。不過，只要藉由適當的輔助工具來觀察，就可輕易地讓它們現出原形。

VCL 控制項類別分類在 form 置放五個不同的可視元件，由上而下分別是 TLabel 、 TShape 、 TStaticText 、 TButton 及 TPanel 元件： :hwnd -c project1 Handle Class WinProc TID Module 03071A IME 77E952BA ED 00000000 030724 TForm1 00254477 ED 00010100 050732 TStaticText 011B0FAE ED 00000000 050730 TPanel 011B0FBB ED 00010000 03072E TButton 011B0FC8 ED 00000000 030718 TApplication 011B0FEF ED 0100:0000

VCL 控制項類別分類作業系統只能感覺到具有視窗的元件，對於不具視窗的元件，作業系統完全不曉得，那是 VCL 自己的事情。

VCL 控制項的擁有關係視窗是如何繪製在畫面上的呢？因為作業系統瞭解它的存在，所以當它有重繪的必要時，視窗會收到 WM_PAINT 訊息，視窗函式就會將元件外觀繪製出來。但是對於不具有視窗的圖形元件呢？它們沒有視窗，所以系統不會送給它們視窗訊息，那它們在什麼時機才能重繪元件外觀呢？關鍵在於：任何不具視窗的 TControl 元件都必須以一個 TWinControl 元件為 parent 元件，也就是被一個 TWinControl 元件包含，它才能夠出現在畫面上。

VCL 控制項的擁有關係既然作業系統會適時告知視窗重繪，那麼那些不具視窗的元件就可由包含它的視窗元件負責，當視窗元件的重繪區域包含某個不具視窗的元件時，就告訴該元件：請重繪元件本身。不只是 WM_PAINT 訊息，所有的滑鼠訊息也都必須仰賴 TWinControl 元件的幫忙，不具視窗的圖形元件才能得知滑鼠訊息，才能感應使用者的操作而做出回應。

VCL 程式運作類別這裡列出兩個類別，雖然它們並不是 VCL 元件架構的關鍵類別，但是它們是 VCL 程式運作的重要角色，也因為它們的存在， VCL 才能從 class library 升級為 application framework 。

VCL 程式運作類別－ TForm TForm 是應用程式視窗的包裝，由於巧妙地設計， VCL 的 TForm 類別一手包辦 SDK 中的 window 及 dialog 兩種應用程式視窗。 TForm 具有以下特性： Delphi 整合環境的介面設計單位（ Delphi 5 新增 TFrame 元件，也能以 TFrame 為設計單位）。能夠藉由屬性的更改，提供 MDI 使用者介面。有兩種使用模式，分成「不含訊息迴圈」及「包含訊息迴圈」兩種使用模式。

VCL 程式運作類別－ TApplication TApplication 是 VCL 應用程式的運作關鍵，因為它負責主執行緒的視窗訊息擷取／分派動作。 TApplication 有如下特性：設計時期不會出現，程式運行後自動產生。掌握程式的運作及結束時機。若要脫離 Application 物件的控制，自行建立視窗迴圈也行，此時 Application 物件就不再具有影響力。當程式的 main form 關閉時，結束程式的運作。

VCL RAD 支援類別這些是實作物件永續機制的類別，由於它們的輔助，我們才能在 Delphi 整合環境的 Form Designer 上頭，隨心所欲地以所見即所得方式設計 form 的介面，而後在程式執行時直接取出整個 form 的資訊及狀態，開始使用。

TStream 跨儲存媒體形式的資料儲存操作類別把資料視為連續的資料流 ( 故此機制也稱為 serialization) 為了方便性， TStream 還是提供了 Seek 方法。跨儲存媒體形式的好處： Write once for various storage media, even for unknown media. 諸多類別提供的 LoadFromStream 及 SaveToStream 方法。跨儲存媒體形式的必要性：設計時期， Form 儲存在 DFM 檔裡。編譯時期， DFM 檔被 linker 放進執行檔。執行時期，執行 TForm.Create 時，會把 form 從執行檔本身的資源區段取出。

TFiler TStream 是儲存媒體進出口的介面，把所有的資料視為資料流（位元組流）。 TFiler 提供把位元組流視為離散的 " 值 " 流的機制，資料流不再是一個個連續的位元組而已，而是一個個的整數、浮點數、字串、列舉、集合等等。 TFiler 是抽象類別，其下有分別負責讀及寫資料流的 TReader 及 TWriter 類別。 (Why ??) TStream 提供 Read, Write 等方法。 TReader 提供 ReadString, ReadInteger, ReadComponent 。 TWriter 提供 WriteString, WriteInteger, WriteComponent 等等。

Creating Database Application C++Builder model for database access How to use Table and TDataSource components How to use data-aware components How to create a simple data entry and database browser How to create a master/detail form

Connecting to Database in C++Builder Dataset objects, DataSource components, and Data-aware controls relationships

Using the Database Explorer Manipulating Aliases Viewing Data Creating Database Form

Using the Database Desktop Alias Manager Table Structure Field Name Field Type Field Size Primary Key, Second Indexes Utilities Add, Copy, Empty, Sort ...

Using Database Wizards When to use Database Wizards and how they can help you How to invoke the Database Form Wizard How to use the Database Form Wizard to create a simple data entry form How to use Data Modules in your applications How to use the Form Wizard to create a master/detail form

Creating a Database Form - Step by Step Dataset objects TTable, TQuery, TStoredProc DataSource objects TDataSource Data-aware objects TDBNavigator TDBGrid, TDBEdit, TDBListbox, etc

TTable and TDataSource TTable component Database property TableName property IndexName vs IndexFieldNames Various events TDataSource compnent DataSet property AutoEdit property

Understanding Fields The definition of fields How to change a field description How to remove a field from Grids and Tables Formatting fields Making calculated fields Lookup fields Validation field data

The Field Property Editor DisplayLabel property DisplayWidth property Index property

Creating Calculated Fields Using field property editor Handling the OnCalcFields Event

Manipulating the DataSets Data navigation Filtering data with SetRangeStart and SetRangeEnd Filtering data with the Filter property Finding records Bookmarking records Providing default values

Data Navigating Activity Open, Close Navigating First, Prior Next, Last MoveBy Bof, Eof Modify Edit, Insert, Append Post, Cancel

Limiting Record Sets SetRange Method High performance but only used on indices SetRangeStart SetRangeEnd ApplyRange CancelRange Filter Slow but flexibility

Search for Records SetKey, GotoKey, GotoNearest FindKey, FindNearest Locate tblBook->SetKey(); tblBook->FieldByName('State')->AsString = “CA”; tblBook->FieldByName('City')->AsString = “Santa Barbara”; tblBook->GotoKey(); TLocateOptions SearchOptions; SearchOptions = SearchOptions << loPartialKey; LocateSuccess = CustTable->Locate("Company", "Professional Divers, Ltd.", SearchOptions);

Bookmarking Records void DoSomething (const TTable *Tbl) { TBookmark Bookmark; Bookmark = Tbl->GetBookmark(); //Allocate memory and assign a value Tbl->DisableControls(); // Turn off display of records in data controls try { Tbl->First(); // Go to first record in table while (!Tbl->Eof) // Iterate through each record in table { // Do your processing here ... Tbl->Next(); } } catch(...) { Tbl->GotoBookmark(Bookmark); Tbl->EnableControls(); // Turn on display of records in data controls, Tbl->FreeBookmark(Bookmark); // Deallocate memory for the bookmark } }

善用除錯工具，縮短開發時間資源保固機制及例外處理機制 Assert 程序 OutputDebugString 輸出除錯字串使用系統層級除錯器

資源保固機制只要進入 try 區段，就保證一定執行 __finally 區段。也可用來簡化程式邏輯： GetMem(p, 100); try ... // 儘情使用 p finally FreeMem(p); end; try ... Exit; // 離開此 procedure 或 function finally ... // 善後工作 end;

例外處理機制傳統錯誤判斷方法： Dirty, inconvenient and easily generate mistakes. GetMem(pBuffer, 1000); if (pBuffer = nil) then begin /* error processing code here; */ end; // 取得 x, 計算 x 的倒數 if x = 0 then begin /* error processing code here; */ end;

例外處理機制例外處理方式：讓例外狀況的處理動作不影響正常流程。 try edtTotal.Text := IntToStr( StrToInt( edtOp1.Text ) / StrToInt( edtOp2.Text ) ); except on EDivByZero do ShowMessage( ' Cannot divide by zero ' ); on EConvertError do ShowMessage( ' Error during conversion ' ); end;

例外處理機制主動丟出例外：將例外狀況集中處理。 try if numItems = 0 then raise EDivByZero.Create( ' Cannot divide by zero ' ) // ^ throw your own exception else edtAvg.Text := FloatToStr( sum / numItems ); except edtAvg.Text := FloatToStr(0.0); raise; // <- re-throw the same exception end;

例外處理機制自行定義新的例外類別：舉發新的例外類別： EInvalidBalance = class(Exception); raise EInvalidBalance.Create( 'Invalid Number');

例外處理機制將錯誤處理／例外處理的程式區塊，與正常程式區塊切割清楚，既易看，也易維護。將 exception specification 納入 interface 的一部份，讓你更清楚知道這個 interface 可能產生哪些需特別注意的事情，程式會更容易看懂，維護起來也更容易。很有 "Design by Contract" 精神。

Assert 程序若 express 為 false ，就產生錯誤，結束程式，並以下列訊息告知：由編譯器處理，所以當程式完成後，可以完全除去。 procedure TForm1.SetID(Id: Integer); begin Assert((id) >= ID_MIN and (id <= ID_MAX )); ... // 正常處理 end; Assertion failed: test, file filename, line linenum

Assert 程序利用 {$ASSERTIONS} 編譯指示來控制 Assert 程序的啟動。千萬別讓 Assert 程序影響程式流程。標準錯誤使用 (Why ?) ： void __fastcall TForm1::SetID(int id) { char *p = malloc(100); assert(p != NULL); ... };

OutputDebugString 除錯字串 Win32 API 提供一道 OutputDebugString 函式，用來吐出除錯訊息，它的作用是：若程式為被除錯狀態（除錯器存在），則將除錯訊息交由除錯器印出（在 Delphi 整合環境中，除錯訊息列於 Event Log 視窗）。若程式不是被除錯狀態，則將除錯訊息交由系統除錯器印出。若系統除錯器（如 SoftICE ）不存在，則什麼都不做。

OutputDebugString 除錯字串若沒有系統層級除錯器，也有專門接收除錯字串的應用程式，如 DebugView ：

系統層級除錯器－ SoftICE SoftICE 是系統層級的超強除錯器，它的能力真的很強，很強，無敵地強，在它的掌控下，只要想做的，沒有做不到的事。啟動時，它會將整個系統的中斷停住，甚至連系統時間都停止更新，把整個系統控制權交給你－ SoftICE 使用者，你說它到底強不強。正因如此，只要長時間處於 SoftICE 使用模式，系統時間就會明顯延遲，害得我跟朋友約會時經常遲到 : ~

系統層級除錯器－ SoftICE 有時不滿足 Delphi 整合環境提供的除錯器，便打開專案的「 Include TD32 Debug Info 」選項，以 SoftICE 為 Delphi 程式除錯。以 SoftICE 充當反組譯器，反組譯小範圍的機械碼。對於不瞭解的軟體功能，以 SoftICE 研究它的實作。我愛在程式中加入除錯訊息來輔助偵錯，而 SoftICE 會自動將不是被除錯狀態的應用軟體所吐出的除錯訊息記錄下來。嫌某個共享軟體實在太貴，或者試用期間太短時，以 SoftICE 將它破解。 :P 開發驅動程式（當然不是用 Delphi 寫的 :P ）時，由於載入順序的關係，非得使用 SoftICE 為除錯器。

系統層級除錯器－ SoftICE

Summary 聰明的小孩愛玩玩具，聰明的程式設計師善用工具。千萬不要以 try-n-error 的心態來除錯。訓練在腦中寫程式，執行程式的能力。

實作與理論撰寫主從式或多層式架構資料庫程式時，涉及的主題可能包括 VCL 、 BDE 、 SQL 、 ODBC 、 ADO 、 COM 、 DCOM 、 CORBA 、 MTS 、 MIDAS… 等等。撰寫網際網路應用程式時，可能涉及 TCP/UDP 、 POP3 、 SMTP 、 FTP 、 TELNET 、 BSD socket 、 WinSock 、 WOSA… 等等。撰寫 Web 應用程式時，可能涉及 HTTP 、 SSL 、 SET 、 HTML 、 DTD 、 XML 、 DOM 、 CGI 、 NSAPI 、 ISAPI 、 ASP 、 Java Applet 、 Java Script 、 Java Servlet 、 VB Script 、 ActiveX 、 Netscape Plug-in 、 PHP 、 Perl 、 SOAP… 等等。

實作與理論請記得，它們都是實作，或是因實作而來的規劃或架構，或是由實作衍生的副產品。難道我就一直貶抑這些許多人抱在懷裡的各項技術及知識嗎？當然不。它們都是實作，可是理論都在裡頭。

實作與理論研讀 TCP 通訊協定，非常好。可是你研讀的是 TCP/IP 各協定的封包格式、協定規格、傳遞流程呢？還是試圖去瞭解背後支持它，維護效率的 Nagle Algorithm 、 Slow Start Mechanism 、 Congestion Avoidance Algorithm 、 Fast Retransmit and Fast Recovery Algorithm 呢？認識這些傢伙，才能理解所謂「可信賴的傳輸層協定」，才能將對 TCP 的瞭解推廣到其它通訊技術上。深入作業系統的內部架構及底層實作，非常好。這可使你徹底瞭解作業系統的實作方式，暫時拋開紙上談兵的作業系統教科書，詳細瞧瞧在現實世界中，架構在現代硬體上的現代作業系統，究竟如何妥善地擔任電腦硬體與應用軟體之間的橋樑。以 Windows 95 為例，你研究的是它與 DOS 的親密關係、 INT 21h 的使用時機、 thunking 機制呢？還是研究它如何提供 LPC 、 IPC ， thread scheduling / page replacment 機制，如何處理 memory thrashing / page thrashing 現象？

實作與理論列出以上這些「實作」、「理論」模擬兩可的說明，我想表達的是「淬取」、「蒸餾」、「抽象化」這些字眼。面對相同的技術、規格或架構，有人能夠很快看穿外頭的包裝，拆開外衣檢視內裏，瞭解背後的精神及理論基礎，挾著新的收獲朝更廣闊的領域邁進。另外的一些人，為其能力或效果所感動迷惑，再三留戀，將實作細節摸得一清二楚，卻往往將焦點置於使用方式或實作機制，雖然下方的基礎及學問才距離幾公分，總是無緣相見。雖然得到了高超的技術能力，卻更加狹隘了視角，短淺了目光。面對新的技術、語言及工具，以定義上看來，它們通通都是實作相關的產物。但是你看到了哪些？是實作細節？還是理論基礎？你才是決定答案的人。

參考書目－ C / C++ Programming The C Programming Language Brian W. Kernighan / Prentice Hall The C++ Programming Language Bjarne Stroustrup / Addison Wesley C++ 程式語言經典本 / 葉秉哲 / 儒林 C++ Primer Stanley B. Lippman, Josee Lajoie, Jose Lajoie / Prentice Hall C++ Primer 中文版 / 侯捷 / 碁峰

參考書目－ Delphi / C++Builder Delphi 學習筆記 Win32 基礎篇錢達智 / 碁峰 Delphi 深度歷險 / C++Builder 深度歷險陳寬達 / 碁峰 Secrets of Delphi 2 Ray Lischner / Waite Group Delphi Component Design Danny Thorpe / Addison Wesley C++Builder 4 Unleashed Charlie Calvert / SAMS

參考書目－ Windows Programming Programming Windows Charles Petzold / Microsoft Press Programming Applications for Microsoft Windows Jeffrey Richter / Microsoft Press Windows 95: A Developer’s Guide Jeffrey Richter, Jonathan Locke / M&T Books Windows 95 程式設計指南 / 李書良譯 / 碁峰 Multithreading Applications in Win32 James Beveridge, Robert Wiener / Addison Wesley Win32 多緒程式設計 / 侯俊傑譯 / 碁峰

參考書目－ OOA / OOD / OOP Object-Oriented Analysis and Design with Applications, 2 nd Ed. Grady Booch / Benjamin/Cummings Publishing Object-Oriented Modeling And Design James Rumbaugh, etc. / Prentice Hall Object-Oriented Software Construction 2 nd Ed. Bertrand Meyer / Prentice Hall Design Patterns, Elements of Reusable Object-Oriented Software GoF / Addiseon Wesley 物件導向設計模式 / 葉秉哲 / 培生

參考書目－ Practical Programming Programming Pearls 2 nd Ed. Jon Bentley / Addiseon Wesley The Practice of Programming Brian W.Kernighan, Rob Pike / Addiseon Wesley Write Solid Code Steve Maguire / Microsoft Press 如何撰寫０錯誤程式 / 施威銘研究室 / 旗標

參考書目－工具書 Win32 Programming Brent Rector, Joseph Newcomer / Addison Wesley Delphi Programming Problem Solver Neil Rubenking / IDG Books Delphi 2 高階技巧 / 劉剛樑譯

Delphi 深度歷險全世界最大的中文 VCL 元件整理站台 http://www.vclxx.org

Delphi 深度論壇最有深度的 Delphi/Kylix/BCB/Java/OOSE 討論社群 http://forum.vclxx.org

C++Builder 深度歷險這是你從未見過的電腦技術書籍！將 VCL 與 SDK 的曖昧關係一手理開控制台，控制台元件，通通自己來各種計時方法的比較及分析以 Win32 高階技術侵入桌面佈景主題世界的太多秘密，完全由作者親手發掘螢幕保護程式也可以 DIY 令人懷念的「倉庫番」遊戲撰寫經典遊戲「坦克大決戰」完整實作撰寫商業級應用程式的秘訣

C++Builder 進階課程開發工具的型態及演進 VCL 背後的機制 VCL 類別架構撰寫新的元件執行時期型別資訊開發多執行緒程式動態連結程式庫高階除錯技巧

THE END 有緣再見！ http://www.iis.sinica.edu.tw/~cychen/index_c.html

Borland C++Builder 入門課程

More Related Content

What's hot (20)

Viewers also liked (20)

Similar to Borland C++Builder 入門課程 (20)

More from Sheng-Wei (Kuan-Ta) Chen (9)

Recently uploaded (20)

Borland C++Builder 入門課程