Delphi/Object Pascal源码样例

Delphi，特别是Object Pascal（其是Delphi集成开发环境中的编程语言），源码示例通常涉及结构化、面向对象的设计原则。下面是一个简单的Delphi Object Pascal的Hello World程序示例：

program HelloWorld;
begin
  writeln('Hello, World!'); // 输出 "Hello, World!"
end.

这个程序首先声明了一个`program`（程序）类型，命名为`HelloWorld`。`writeln`函数用于在控制台输出文本，这里是问候信息。

在Delphi中，你还可以创建类（Class）和对象，并通过方法（Method）实现多态。例如，下面是一个简单的类和它的实例例子：

unit ClassesExample;

interface

type
  TPerson = class
    public
      procedure SayHello;
  end;

implementation

procedure TPerson.SayHello;
begin
  writeln('Hello from a Person!');
end;

var
  Alice: TPerson; // 创建TPerson类型的对象
begin
  Alice := TPerson.Create; // 实例化对象
  Alice.SayHello; // 调用SayHello方法
  Dispose(Alice); // 释放资源
end.