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 中可以找到更复杂的示例，其中包含许多面向对象编程。