Project1.cpp:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1); //調(diào)用這個vcl模塊,詳見Unit1.cpp
//---------------------------------------------------------------------------
//這里很搞笑,沒給參數(shù)名重寫,不知道這樣函數(shù)里面能不能用到這幾個參數(shù)
//不過好像也就沒用
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
//The owner of the new form is the Application object
//__classid返回一個指向TForm1的vtable的指針,這點還要再看看實現(xiàn)過程
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch ()
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
Unit1.h:
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
//都只是些聲明部分,所以包含在頭文件里面
#include <Classes.hpp> //TPersistent, TComponent
#include <Controls.hpp> //TControl, TWinControl
#include <StdCtrls.hpp> //TButton
#include <Forms.hpp> //TApplication, TForm
//---------------------------------------------------------------------------
/*
TObject(RTTI,垃圾回收等最基本的)
|
|--TList(stores an array of pointers)
|
|--TStream(read and write to some media)
| |
| |--TFileStream,TStringStream,TWinSocketStrem
|
|--TFiler(讀寫控件[objects]屬性:比如保存dfm文件信息,在內(nèi)存中暫存控件信息等)
| |
| |--TReader
| |--TWriter(具體實現(xiàn)Filer功能)
|
|--TPersistent(have assignment and streaming capabilities)
|
|--TStrings(for objects that represent a list of strings)
| |
| |--TStringList(具體實現(xiàn))
|
|--TComponent(控件父類,包括可顯示和不可顯示)
|
|--TApplication(抽象WindowsGUI環(huán)境,消息機制當(dāng)然還有針對web的環(huán)境)
|
|--TControl(可視控件)
|
|--TWinControl(針對Windows的可視控件)
|
|--TButtonControl(Button的抽象)
| |
| |--TButton(Button的具體實現(xiàn))
|
|--TScrollingWinControl(支持滾動條的Windows控件)
|
|--TCustomForm
|
|--TForm
*/
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner); //Owner是創(chuàng)造者,Parent是呈現(xiàn)者(只對于可視控件)
};
//---------------------------------------------------------------------------
/*
把這個vcl(Form1)導(dǎo)出,其他模塊使用這個頭文件時就告訴編譯器,這個vcl在別處具體定義
*/
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
Unit1.cpp:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop //之前的頭文件可以使用頭文件緩存技術(shù),其他包含vcl.h的編譯塊就編譯一次
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
/*
這里的疑問在于,頭文件里面已經(jīng)有一個extern的指針,這里為何還要再次搞出個指針.
注意在Project1.cpp里面有個USEFORM的宏,這個宏的具體定義在vcl\sysclass.h文件中
如下:
#ifdef BCBVER1
#define USEFORM(FileName, FormName) \
class DELPHICLASS T##FormName; \
extern T##FormName *FormName;
#else
#define USEFORM(FileName, FormName) \
class DELPHICLASS T##FormName; \
extern PACKAGE T##FormName *FormName;
#endif
可以看出這里FileName根本沒用上,所以"既然給了cpp也就給了.h也就給了那個extern指針"
的想法是錯誤的,cpp文件根本就沒有起到任何作用,還是完全依賴連接時靠extern的存儲
屬性在obj里面去找.這也就是為什么cpp里面如果沒有下面這個指針聲明,報錯的不是Unit1
而是Project1,因為是在Project1調(diào)用了這么個沒有定義個指針.還有一點就是,之所以會這
樣是因為.h是不會編譯的,Project1在Unit1.cpp對應(yīng)的obj里面去找,當(dāng)然找不到.所以這里
必須要再次寫上一句.
*/
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------