Delphi and Free Pascal's Object Pascal
program ObjectPascalExample; type THelloWorld = class procedure Put; end; procedure THelloWorld.Put; begin Writeln('Hello, World!'); end; var HelloWorld: THelloWorld; { this is an implicit pointer } begin HelloWorld := THelloWorld.Create; { constructor returns a pointer to an object of type THelloWorld } HelloWorld.Put; HelloWorld.Free; { this line deallocates the THelloWorld object pointed to by HelloWorld } end.Note that the object construct is still available in Delphi and Free Pascal (Delphi-compatible mode).
Read more about this topic: Object Pascal, Sample "Hello World" Programs
Famous quotes containing the words delphi, free, pascal and/or object:
“At Delphi I prayed
to Apollo
that he maintain in me
the flame of the poem
and I drank of the brackish
spring there....”
—Denise Levertov (b. 1923)
“And anyone is free to condemn me to death
If he leaves it to nature to carry out the sentence.
I shall will to the common stock of air my breath
And pay a death tax of fairly polite repentance.”
—Robert Frost (1874–1963)
“Men never do evil so fully and cheerfully as when we do it out of conscience.”
—Blaise Pascal (1623–1662)
“I consider, then, the power to annul a law of the United States, assumed by one state, incompatible with the existence of the Union, contradicted expressly by the letter of the Constitution, unauthorized by its spirit, inconsistent with every principle on which it was founded, and destructive of the great object for which it was formed.”
—Andrew Jackson (1767–1845)