Object Pascal

Thời đại của Borland và CodeGear

Vào năm 1986, Borland giới thiệu các phần mở rộng tương tự, cũng được gọi là Object Pascal, cho sản phẩm Turbo Pascal dành cho Macintosh, và vào năm 1989 cho Turbo Pascal 5.5 cho DOS. Khi Borland tái tập trung từ DOS sang Windows vào năm 1994, họ tạo nên người kế nhiệm cho Turbo Pascal, gọi là Delphi và giới thiệu một tập các phần mở rộng mới để tạo nên cái mà bây giờ gọi là ngôn ngữ Delphi.
Quá trình phát triển của Delphi được bắt đầu vào năm 1993 và phiên bản Delphi 1.0 được chính thức ra mắt ở Hoa Kỳ vào ngày 14 tháng 2 năm 1995. Trong khi mã nguồn sử dụng mô hình đối tượng của Turbo Pascal vẫn có thể được biên dịch, Delphi giới thiệu một cú pháp mới với từ khóa class để thay thế cho object, hàm tạo Create và một hàm hủy ảo Destroy (và ngược lại phải gọi các thủ tục New và Dispose procedures), thuộc tính, con trỏ hàm, và các thứ khác. Những điều này lấy cảm hứng từ bản thảo đang được soạn thảo của Tổ chức tiêu chuẩn hóa quốc tế (ISO) cho phần mở rộng lập trình hướng đối tượng, nhưng có nhiều khác biệt với phương ngữ của Turbo Pascal (ví dụ như yêu cầu trong bản thảo rằng tất cả các phương thức phải ảo) đều bị bỏ qua.
Ngôn ngữ Delphi tiếp tục phát triển qua nhiều năm để hỗ trợ cho các cấu trúc như mảng động, tổng quát và phương thức ảo.

Object Pascal của Apple=

program ObjectPascalExample;

   type
      THelloWorld = object
         procedure Put;
      end;

   var
      HelloWorld: THelloWorld;

   procedure THelloWorld.Put;
   begin
      ShowMessage('Hello, World!');
   end;begin
   New(HelloWorld);
   HelloWorld.Put;
   Dispose(HelloWorld);end.

Object Pascal của Turbo Pascal

Vẫn được hỗ trợ trong Delphi và Free Pascal. FPC cũng đóng gói các thư viện/đơn vị của riêng nói. Nhưng Delphi thì không. Free Pascal 2.0 được viết lại theo phương ngữ giống Delphi hơn.

Cấp phát dựa trên ngăn xếp

program ObjectPascalExample;

   type
      THelloWorld = object
         procedure Put;
      end;

   procedure THelloWorld.Put;
   begin
      WriteLn('Hello, World!');
   end;var
  HelloWorld: THelloWorld; { allocated on the stack and can be used without explicit allocation. }begin
   HelloWorld.Put;end.

Cấp phát dựa trên heap

program ObjectPascalExample;

   type
      PHelloWorld = ^THelloWorld;
      THelloWorld = object
         procedure Put;
      end;

   procedure THelloWorld.Put;
   begin
      WriteLn('Hello, World!');
   end;var
  HelloWorld: PHelloWorld; { this is a typed pointer to a THelloWorld }begin
   New(HelloWorld);
   HelloWorld^.Put;
   Dispose(HelloWorld);end.
Ví dụ khác:
program ObjectPascalExample;

   type
      PHelloWorld = ^THelloWorld;
      THelloWorld = object
         procedure Put;
      end;

   procedure THelloWorld.Put;
   begin
      WriteLn('Hello, World!');
   end;var
  HelloWorld: PHelloWorld; { this is a typed pointer to a THelloWorld }
  HelloWorld2: ^THelloWorld; { this is a direct variable to a pointer of the THelloWorld type.                                This variable is type incompatible with PHelloWorld. } 
  HelloWorld3: ^THelloWorld; { the compiler sees this as being type incompatible with HelloWorld2 *and*                                PHelloWorld. Using the pointer syntax is the only way to declare a type that is                                assignment compatible. }
  HelloWorld4: PHelloWorld; { this is type compatible with HelloWorld, but incompatible with the other two variables. }begin
   { This works in a similar way as the code above... but it demonstrates the disadvantage of not      using a specific type. The type definition between two variables using the raw pointer      based notation would be seen as "different" by the compiler. }

   New(HelloWorld4);
   HelloWorld:= HelloWorld4; { this is valid - the type assignment is valid }
   HelloWorld2 = HelloWorld; { this would be a compiler error }
   {disposes left out for brevity}

   New(HelloWorld3);
   HelloWorld:= HelloWorld3; { this would be a compiler error }
   HelloWorld2 = HelloWorld3; { this would be a compiler error }
   {disposes left out for brevity}end.
Đây là một khác biệt quan trọng để tạo ra, và có thể được nhìn nhận là một trong những khác biệt chính dẫn đến phong cách của Delphi để "ẩn" cấp phát heap và kí hiệu con trỏ từ lập trình viên. Delphi đã loại bỏ sự cần thiết của kiểu con trỏ và cú pháp con trỏ bổ sung, nhưng vẫn giữa lại cơ chế xây dựng rõ ràng.

Object Pascal của Delphi và Free Pascal

program ObjectPascalExample;type
  THelloWorld = class
    procedure Put;
  end;procedure THelloWorld.Put;begin
  Writeln('Hello, World!');end;var
  HelloWorld: THelloWorld;               { this is an implicit pointer }begin
  HelloWorld:= THelloWorld.Create;      { constructor returns a pointer to an object of type THelloWorld }
  HelloWorld.Put;
  HelloWorld.Free;                       { this line deallocates the THelloWorld object pointed to by HelloWorld }end.
Lưu ý rằng xây dựng đối tượng vẫn có sẵn trong Delphi và Free Pascal.

Object Pascal của Oxygene

namespace ObjectPascalExample;

   interface

   type
      ConsoleApp = class
         class method Main;
      end;

      THelloWorld = class
         method Put;
      end;

   implementation

   method THelloWorld.Put;
   begin
      Console.WriteLine('Hello, World!');
   end;

   class method ConsoleApp.Main;
   begin
      var HelloWorld:= new THelloWorld;
      HelloWorld.Put;
   end;end.

Object Pascal của DWScript (còn gọi là Smart Pascal)

type
   THelloWorld = class
      procedure Put;
      begin
         PrintLn('Hello, World!');
      end
   end;var HelloWorld:= THelloWorld.Create;HelloWorld.Put;
Lưu ý rằng hiện thực phương thức có thể được thực hiện ở vị trí riêng biệt như trong các phương ngữ Object Pascal khác.

Sự phát triển

Nhiều tính năng đã được giới thiệu liên tục trong Object Pascal với phần mở rộng tới Delphi và FreePascal. Trong phản ứng trước những chỉ trích, Free Pascal đã chấp nhận tổng quát hóa (generics) với cú pháp tương tự như Delphi, cung cấp chế độ tương thích với Delphi, và cả Delphi (một phần) và Free Pascal (rộng rãi hơn) đều hỗ trợ quá tải toán tử (operator overloading). Delphi cũng giới thiệu nhiều tính năng khác kể từ phiên bản 7 bao gồm tổng quát hóa. Trong khi FreePascal cố gắng để tương thích với Delphi ở chế độ tương thích Delphi, nó cũng thường giới thiệu nhiều tính năng mới cho ngôn ngữ mà không phải lúc nào cũng có sẵn trên Delphi.