Project1.cpp:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1); //調(diào)用這個(gè)vcl模塊,詳見Unit1.cpp
//---------------------------------------------------------------------------
//這里很搞笑,沒給參數(shù)名重寫,不知道這樣函數(shù)里面能不能用到這幾個(gè)參數(shù)
//不過好像也就沒用
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
//The owner of the new form is the Application object
//__classid返回一個(gè)指向TForm1的vtable的指針,這點(diǎn)還要再看看實(shí)現(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(具體實(shí)現(xiàn)Filer功能)
|
|--TPersistent(have assignment and streaming capabilities)
|
|--TStrings(for objects that represent a list of strings)
| |
| |--TStringList(具體實(shí)現(xiàn))
|
|--TComponent(控件父類,包括可顯示和不可顯示)
|
|--TApplication(抽象WindowsGUI環(huán)境,消息機(jī)制當(dāng)然還有針對(duì)web的環(huán)境)
|
|--TControl(可視控件)
|
|--TWinControl(針對(duì)Windows的可視控件)
|
|--TButtonControl(Button的抽象)
| |
| |--TButton(Button的具體實(shí)現(xiàn))
|
|--TScrollingWinControl(支持滾動(dòng)條的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)者(只對(duì)于可視控件)
};
//---------------------------------------------------------------------------
/*
把這個(gè)vcl(Form1)導(dǎo)出,其他模塊使用這個(gè)頭文件時(shí)就告訴編譯器,這個(gè)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)有一個(gè)extern的指針,這里為何還要再次搞出個(gè)指針.
注意在Project1.cpp里面有個(gè)USEFORM的宏,這個(gè)宏的具體定義在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也就給了那個(gè)extern指針"
的想法是錯(cuò)誤的,cpp文件根本就沒有起到任何作用,還是完全依賴連接時(shí)靠extern的存儲(chǔ)
屬性在obj里面去找.這也就是為什么cpp里面如果沒有下面這個(gè)指針聲明,報(bào)錯(cuò)的不是Unit1
而是Project1,因?yàn)槭窃赑roject1調(diào)用了這么個(gè)沒有定義個(gè)指針.還有一點(diǎn)就是,之所以會(huì)這
樣是因?yàn)?h是不會(huì)編譯的,Project1在Unit1.cpp對(duì)應(yīng)的obj里面去找,當(dāng)然找不到.所以這里
必須要再次寫上一句.
*/
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------