Add Object Pascal

Fixes: #634
Co-Authored-By: Emanuel Gomes <emanuel-gomes@users.noreply.github.com>
This commit is contained in:
Richie Bendall
2020-03-30 07:41:57 +13:00
parent 35bf6f94ac
commit 3d988c9fc1
2 changed files with 21 additions and 0 deletions

View File

@@ -370,6 +370,7 @@ Meet [FizzBuzz](https://github.com/zenware/FizzBuzz), the evolution of [hello-wo
* [Obix](o%5Cobix.osc)
* [Obj](o%5Cobj.st)
* [Objc](o%5Cobjc.m)
* [Object Pascal](o%5Cobject-pascal.pp)
* [Objective J](o%5Cobjective-j.j)
* [Objectstar](o%5CObjectStar)
* [Ocaml](o%5Cocaml.ml)

20
o/object-pascal.pp Normal file
View File

@@ -0,0 +1,20 @@
program ObjectPascalExample;
type
THelloWorld = class
procedure Put;
end;
procedure THelloWorld.Put;
begin
Writeln('Hello World');
end;
var
HelloWorld: THelloWorld;
begin
HelloWorld := THelloWorld.Create;
HelloWorld.Put;
HelloWorld.Free;
end.