Wikipedia

Ero sivun ”Object Pascal” versioiden välillä

Selaa historiaa interaktiivisesti
[katsottu versio][katsottu versio]
← Vanhempi muutosUudempi muutos →
Poistettu sisältö Lisätty sisältö
VisuaalinenWikiteksti
Ipr1 (keskustelu | muokkaukset)
seulojat
202 600 muokkausta
p koodilohko
Ipr1 (keskustelu | muokkaukset)
seulojat
202 600 muokkausta
koodilohkoja, markupit pois sotkemasta
Rivi 100:
===Delphin Object Pascal===
 
<source>
'''program''' ObjectPascalExample;<br/>
'''type'''
THelloWorld = '''class'''
'''procedure''' Put;
'''end''';<br/>
'''var'''
HelloWorld: THelloWorld;<br/>▼
'''procedure''' HelloWorld: THelloWorld.Put;
▲ HelloWorld:procedure THelloWorld.Put;<br/>
'''begin'''
WriteLn('Hello, World!');
'''end''';<br/>
'''begin'''
HelloWorld := THelloWorld.Create;
HelloWorld.Put;
HelloWorld.Free;
'''end'''.
</source>
 
===Chromen Object Pascal===
 
<source>
'''namespace''' ObjectPascalExample;<br/>
'''interface'''<br/>
'''type'''
ConsoleApp = '''class'''
ConsoleApp = '''class method''' Main;
class method Main;
'''end''';<br/>
end;
THelloWorld = '''class'''
'''method''' Put;
'''end''';<br/>
'''implementation'''<br/>
'''method''' THelloWorld.Put;
'''begin'''
Console.WriteLine('Hello, World!');
'''end''';<br/>
'''class method''' ConsoleApp.Main;
'''begin'''
'''var''' HelloWorld := '''new''' THelloWorld;
HelloWorld.Put;
'''end;'''<br/>
'''end'''.
</source>
 
==Katso myös ==
Noudettu kohteesta ”https://fi.wikipedia.org/wiki/Object_Pascal”