• ●物件（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 *.单方面﹜

{ 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(TObject)
  private
    FCaption: String;
    function GetCaption: String;
    procedure SetCaption（const Value: String）;
  public
    property Caption: String read GetCaption write SetCaption;
  end;

Option Explicit
 
Private Member() 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(a Value As String)
   pCount = pCount + 1
   ReDim Preserve pMember（怕Count - 1）
   怕Member（怕Count - 1） = vNewValue
End Sub
 
Public Sub Clear（）
   pCount = 0
   ReDim pMember（怕Count）
End Sub
 
Public Sub MoveItem(Idx As Integer)
   Dim i As Integer
   
   For i = vIdx To UBound（怕Member） - 1
      怕Member（i） = 怕Member（i + 1）
   Next
   pCount = pCount - 1
   ReDim Preserve pMember（怕Count）
End Sub
 
Public Function Index OF(vSearch As String) As Integer
   Dim i As Integer
   
   IndexOF = -1
   For i = LBound（怕Member） To UBound（怕Member）
      If vSearch = 怕Member（i） Then
         IndexOF = i
         Exit Function
      End If
   Next
End Function
 
Public Function Item(index As Integer) As String
   Item = 怕Member（vIdx）
End Function
 
Public Sub SetItem(Idx As Integer, ByVal vNewValue As Variant)
   怕Member（vIdx） = vNewValue
End Sub

procedure TForm1.Button1Click（Sender: TObject）;
begin
   Widget Control(Sender).Enabled := not Widget Control(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" 他很
       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.Button3_Click(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(Aown​​er: TComponent); override;
    destructor Destroy; override;
  end;
 
constructor TButtonGroup.Create(Aown​​er: 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. 遇到猪八戒则戏弄。