Example 3.2 An application object
If we review our experience with RAD objects (eg example 1.3 step 7) we see that three steps are needed before we have an object we can use:- Define the class. We stipulate the required data and methods (the class’s ‘signature’) and define the implementation of the methods. The class definition provides a set of instructions for instantiating an object.
- Declare a name to use as a reference to access the object. This sets aside memory on the stack for a reference to the object.
- Create the object. This allocates and initialises memory for the object on the heap, and assigns the address of the object to the reference.
Ex 3.2 step 1 Defining the TItem Class
We can use RAD generated objects as guidelines for creating our own objects. For instance, if we look at the program from example 3.1, we see that Delphi derived the form we created, TfrmCount, from TForm. It then listed the data (gpbItems … bmbReset) and the methods (procedures btnItemsClick … bmbResetClick).
type
TfrmCount = class(TForm) // derived from TForm
gpbItems: TGroupBox; // data fields
lblTotal: TLabel;
btnItems: TButton;
btnDisplay: TButton;
bmbReset: TBitBtn;
procedure btnItemsClick(Sender: TObject) ; // methods
procedure btnDisplayMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) ;
procedure btnDisplayMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) ;
procedure bmbResetClick(Sender: TObject) ;
private // visibility specifier
{ Private declarations }
public
{ Public declarations }
end;
Because object orientation is about encapsulation and keeping data and the inner workings of classes private, we create this new class in a separate unit. So the existing unit accompanying frmCount will contain the user interface and will communicate with the separate unit containing the object that is keeping count of the items.
Open the project file from example 3.1. Save the unit file as OODriverU. Save the project file as OODriverP.
We need a second unit (without a form) for the TItem class definition. Select File | New | Unit from the menu . This unit has no accompanying form and Delphi provides only the 2 unit name and the skeleton for the interface and implementation sections:
unit Unit2;
interface
implementation
end.
1 unit ItemU;
2 interface
3 type
// derived from TObject
4 TItem = class(TObject)
5 private
// data usually private
6 FCount: integer;
7 public
// Public access methods
8 procedure AddItem;
9 function GetCount: integer;
10 procedure ZeroCount;
11 end;
12 implementation
13 { TItem }
14 procedure TItem.AddItem;
15 begin
16 Inc(FCount) ;
17 end;
18 function TItem.GetCount: integer;
19 begin
20 Result := FCount;
21 end;
22 procedure TItem.ZeroCount;
23 begin
24 FCount := 0;
25 end;
26 end.
