首页 > 代码库 > 第二课 类的定义与使用

第二课 类的定义与使用

使用类之前使用关键字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.

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

第二课 类的定义与使用