Pascal 程式設計/面向物件

返回 Pascal 程式設計

面向物件 Pascal 允許使用者使用類和型別來建立應用程式。這為開發人員節省了開發高度靈活程式的時間。

這是一個示例程式（使用 FreePascal 編譯器測試），它將在私有變數 One 中儲存數字 1，將其增加 1，然後列印它。

 program types;  // this is a simple program
 type MyType=class
       private
        One:Integer;
       public
        function Myget():integer;
        procedure Myset(val:integer);
        procedure Increase();
      end;

 function MyType.Myget():integer;
 begin
   Myget:=One;
 end;
 procedure MyType.Myset(val:integer);
 begin
   One:=val;
 end;
 procedure MyType.Increase();
 begin
   One:=One+1;
 end;

 var
   NumberClass:MyType;
 begin
   NumberClass:=MyType.Create;  // creating instance
   NumberClass.Myset(1);
   NumberClass.Increase();
   writeln('Result: ',NumberClass.Myget());
   NumberClass.Free;  // destroy instance
   NumberClass := Nil;
 end.

該示例非常基礎，用作 OOP 時幾乎沒有用處。在 Delphi 和 Lazarus 中可以找到更復雜的示例，其中包含許多面向物件程式設計。