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

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