• ●物件（Object）以及訊息（Message）



• ●繼承（Inheritance）



• ●封裝（Encapsulation）



• ●動態連結（Dynamic Binding）

• ●繼承 → Source的Reuse。



• ●封裝 → 保護程式中的資訊，並透過驗證過的程序來做存取。



• ●動態連結 → 於執行時期決定執行物件的種類與分法。

unit Main001;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TA = class（TObject）
  public
     procedure SayHello;
  end;

  TB = class（TA）
  public
     procedure SayHello;
  end;

  TForm1 = class（TForm）
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click（Sender: TObject）;
    procedure Button2Click（Sender: TObject）;
  private
    ﹛Private declarations﹜
  public
    ﹛Public declarations﹜
  end;

var
  Form1: TForm1;

implementation

﹛$R *.dfm﹜

{ TA }

procedure TA.SayHello;
begin
   ShowMessage（'Hello by Class A ...'）;
end;

{ TB }

procedure TB.SayHello;
begin
   Inherited;
   ShowMessage（'Hello by Class B ...'）;
end;

procedure TForm1.Button1Click（Sender: TObject）;
var Obj: TA;
begin
   Obj := TA.Create;
   Obj.SayHello;
   Obj.Free;
end;

procedure TForm1.Button2Click（Sender: TObject）;
var Obj: TB;
begin
   Obj := TB.Create;
   Obj.SayHello;
   Obj.Free;
end;

end.

 TC = class（TObjct）
  private
    FCaption: String;
    function GetCaption: String;
    procedure SetCaption（const Value: String）;
  public
    property Caption: String read GetCaption write SetCaption;
  end;

Option Explicit
 
Private pMember（） As String
Private pCount As Integer
 
Private Sub Class_Initialize（）
   pCount = 0
End Sub
 
Public Property Get Count（） As Variant
   Count = pCount
End Property
 
Public Sub Add（vNewValue As String）
   pCount = pCount + 1
   ReDim Preserve pMember（pCount - 1）
   pMember（pCount - 1） = vNewValue
End Sub
 
Public Sub Clear（）
   pCount = 0
   ReDim pMember（pCount）
End Sub
 
Public Sub MoveItem（vIdx As Integer）
   Dim i As Integer
   
   For i = vIdx To UBound（pMember） - 1
      pMember（i） = pMember（i + 1）
   Next
   pCount = pCount - 1
   ReDim Preserve pMember（pCount）
End Sub
 
Public Function IndexOF（vSearch As String） As Integer
   Dim i As Integer
   
   IndexOF = -1
   For i = LBound（pMember） To UBound（pMember）
      If vSearch = pMember（i） Then
         IndexOF = i
         Exit Function
      End If
   Next
End Function
 
Public Function Item（vIdx As Integer） As String
   Item = pMember（vIdx）
End Function
 
Public Sub SetItem（vIdx As Integer, ByVal vNewValue As Variant）
   pMember（vIdx） = vNewValue
End Sub

procedure TForm1.Button1Click（Sender: TObject）;
begin
   TWidgetControl（Sender）.Enabled := not TWidgetControl（Sender）.Enabled;
end;

Public Sub EnableControl（ Sender as Object）
   Sender.Enabled = not Sender.Enabled
End Sub

Public Sub EnableControl（ Sender as Object）
   If TypeName（Sender） = "TWidgetControl" then
       Sender.Enabled = not Sender.Enabled
   End If
End Sub

procedure TForm1.Button1Click（Sender: TObject）;
begin
   Button1.Enabled := False;
   Button2.Enabled := True;
   Button3.Enabled := False;
end;
 
procedure TForm1.Button2Click（Sender: TObject）;
begin
   Button1.Enabled := False;
   Button2.Enabled := False;
   Button3.Enabled := True;
end;
 
procedure TForm1.Button3Click（Sender: TObject）;
begin
   Button1.Enabled := True;
   Button2.Enabled := False;
   Button3.Enabled := False;
end;

   Button4.Enabled := False;
   Button5.Enabled := False;
   Button6.Enabled := False;
   if Sender = Button4 then Button5.Enabled := True;
   if Sender = Button5 then Button6.Enabled := True;
   if Sender = Button6 then Button4.Enabled := True;

type
  TButtonGroup = class（TGroupBox）
  private
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure OnClick（Sender: TObject）;
  public
    constructor Create（Owner: TComponent）; override;
    destructor Destroy; override;
  end;
 
constructor TButtonGroup.Create（Owner: TComponent）;
begin
   inherited;
   Button1 := TButton.Create（Self）;
   Button2 := TButton.Create（Self）;
   Button3 := TButton.Create（Self）;
   Button1.Parent := Self;
   Button2.Parent := Self;
   Button3.Parent := Self;
   Button1.Name := 'Button7';
   Button2.Name := 'Button8';
   Button3.Name := 'Button9';
   Button1.Top := 25;
   Button2.Top := Button1.Top + Button1.Height + 10;
   Button3.Top := Button2.Top + Button2.Height + 10;;
   Button1.Left := 28;
   Button2.Left := 28;
   Button3.Left := 28;
   Button2.Enabled := False;
   Button3.Enabled := False;
   Button1.OnClick := OnClick;
   Button2.OnClick := OnClick;
   Button3.OnClick := OnClick;
end;
 
destructor TButtonGroup.Destroy;
begin
   Button1.Free;
   Button2.Free;
   Button3.Free;
   inherited;
end;
 
procedure TButtonGroup.OnClick（Sender: TObject）;
begin
   Button1.Enabled := False;
   Button2.Enabled := False;
   Button3.Enabled := False;
   if Sender = Button1 then Button2.Enabled := True;
   if Sender = Button2 then Button3.Enabled := True;
   if Sender = Button3 then Button1.Enabled := True;
end;
 
procedure TForm1.FormShow（Sender: TObject）;
begin
   BG := TButtonGroup.Create（Self）;
   BG.Parent := Self;
end;
 
procedure TForm1.FormClose（Sender: TObject; var Action: TCloseAction）;
begin
   BG.Free;
end;

• 1. 西遊記主程式。



• 2. 過河。



• 3. 遇到妖怪。



• 4. 妖怪遇到三藏師徒。

• 　a. 如果唐三藏過河則划船。



• b. 如果孫悟空過河則用飛的。



• c. 如果豬八戒過河則用游的。

• a. 如果唐三藏遇到妖怪則念經。



• b. 如果孫悟空遇到妖怪則斬妖。



• c. 如果豬八戒遇到妖怪則大喊救命。

• a. 如果是唐三藏則吃掉。



• b. 如果是孫悟空則逃跑。



• c. 如果是豬八戒則戲弄他。

• 1. 系統主程式。



• 2. 唐三藏。



• a. 過河則划船。



• b. 遇到妖怪則念經。



• 3. 孫悟空。



• a. 過河則飛。



• b. 遇到妖怪則斬妖。



• 4.豬八戒。



• a. 過河則游。



• b. 遇到妖怪則呼救。



• 5. 妖怪。



• a. 遇到唐三藏則吃。



• b. 遇到孫悟空則跑。



• c. 遇到豬八戒則戲弄。