第二课 类的定义与使用

使用类之前使用关键字type来声明一个类如

type

　　A = class

　　i,j,k:integer;

　　procedure setA(a,b,c:integer);

　　function gerA():integer;

end;

这里已经定义了一个类，现在我们来使用类

在使用类之前，我们先必须给下面2行

　procedure setA(a,b,c:integer);

　　function gerA():integer;

代码实现如下功能：

function A.getA(): Integer;
begin

　　Result:= i+j+k;
　　Writeln(result);
end;

procedure A.setA( a, b, c: integer);
begin
　　i:= a;
　　j:= b;
　　k:= c;
end;

先给类A示例话一个对象a1

var

　　a1:A;

begin
{ TODO -oUser -cConsole Main : Insert code here }
　　a1:=a.Create;  //实例化a1
　　a1.setA(1,2,3);  
　　a1.getA();   //结果为6
　　Readln;
end.

下节课给大家讲解封装，继承和多态的实现。持续跟新中。。。