User Rating: 0 / 5

Star InactiveStar InactiveStar InactiveStar InactiveStar Inactive
 

CLASS VAR

Define a CLASS VAR variable for a class (NOT for an Object!)
Syntax
CLASS VAR <DataName1> [, <DataNameN>] [ AS <type> ] [ INIT <uValue> ]
Argument(s)
<DataName1> Name of the VAR
<type> Optional data type specification from the following:
Character, Numeric, Date, Logical, Codeblock, Nil
<uValue> Optional initial value at program startup
Description
CLASS VAR variables can also be thought of as the "properties" of an entire class. Each CLASS VAR exists only once, no matter how many objects are created. A common usage is for a counter that is incremented whenever an object is created and decremented when one is destroyed, thus monitoring the number of objects in existence for this class.
You can use the "AS <type>" clause to enforce that the CLASS VAR is maintained as a certain type. Otherwise it will take on the type of whatever value is first assigned to it. Use the "INIT <uValue>" clause to initialize that VAR to <uValue> whenever the class is first used.
Example(s)
CREATE CLASS TWindow
   VAR   hWnd, nOldProc
   CLASS VAR lRegistered AS LOGICAL
ENDCLASS
Status
Ready
Compliance
This is Harbour specific
Platform(s)
This is available on all platforms
See also

Object Oriented Programming, CLASS, METHOD, VAR