Problem z klasą

Article View: pl.comp.lang.pascal

Article #92345

Back to pl.comp.lang.pascal Previous Next

#92345

From: krzysztof posłuszny
Date: Thu, 27 Dec 2007 18:07

49 lines
1443 bytes

Witam!
Czy ten wynalazek poniżej jest prawidłowo napisaną klasa i dlaczego
nieda się skompilować (anjuta linuks) gdy zmienię linie: TPirat = class?

unit pirat;

interface

uses sysutils;

type

TPirat=object

public

procedure korsarz;

end;

type

TKondor=object

public

procedure kondon;

end;

implementation

procedure TPirat.korsarz;

begin

writeln('Procedura korsarz');

end;

procedure TKondor.kondon;

begin

writeln('Kondonik');

end;

end.

Technical Details

Message-ID: <fl0plm$13i$1@news.onet.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!not-for-mail
From: krzysztof posłuszny <krzysiu266@vp.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Problem z klasą
Date: Thu, 27 Dec 2007 19:07:37 +0100
Organization: Onet.pl
Lines: 51
Message-ID: <fl0plm$13i$1@news.onet.pl>
NNTP-Posting-Host: public-gprs67184.centertel.pl
Mime-Version: 1.0
X-Trace: news.onet.pl 1198778871 1138 91.94.135.128 (27 Dec 2007 18:07:51 GMT)
X-Complaints-To: usenet@news.onet.pl
NNTP-Posting-Date: Thu, 27 Dec 2007 18:07:51 +0000 (UTC)
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
X-Sender: l2xQZi7RUOYFs9F6gAGunA==
X-Antivirus-Status: Clean
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-Antivirus: avast! (VPS 071226-0, 2007-12-26), Outbound message
X-Priority: 3
X-MSMail-Priority: Normal
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit