Add Object Pascal
Fixes: #634 Co-Authored-By: Emanuel Gomes <emanuel-gomes@users.noreply.github.com>
This commit is contained in:
@@ -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
20
o/object-pascal.pp
Normal 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.
|
||||
Reference in New Issue
Block a user