20 lines
273 B
ObjectPascal
20 lines
273 B
ObjectPascal
|
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.
|