Object Pascal: Difference between revisions

Revision as of 11:03, 25 June 2007

Revision as of 23:26, 9 July 2007

Line 41:

==Hello world example ==

===Apple's Object Pascal===

'''program''' ObjectPascalExample;<br/>

'''type'''

'''type'''
THelloWorld = '''object'''

'''procedure''' Put;

'''end''';<br/>

'''typevar'''

HelloWorld: THelloWorld;<br/>

'''procedure''' THelloWorld.Put;

'''begin'''

WriteLn('Hello, World!');

'''end''';<br/>

'''var'''

'''begin'''

HelloWorld: THelloWorld;<br/>

'''procedure''' THelloWorld.Put;

'''begin'''

WriteLn('Hello, World!');

'''end''';<br/>

'''begin'''

New(HelloWorld);

HelloWorld.Put;

Dispose(HelloWorld);

'''end'''.

===Turbo Pascal's Object Pascal===