Delphi 之 第二課 類的定義與使用

使用類之前使用關鍵字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.

下節課給大家講解封裝，繼承和多態的實現。持續跟新中。。。