Class types

Class types are used to combine data with corresponding methods.

Class type declaration:

type

 tclass1 = class // use class keyword

         field1: integer // class field

         procedure method1(x: integer) // class method

         function method2(x: integer): integer // class method

 end

Class methods definition:

procedure tclass1.method1(x: integer)

begin

 field1 = x // assign class field variable        

end

function tclass1.method2(x: integer): integer // class method

begin

 result = field1 + x

end