Lekarstwo

Article View: pl.comp.lang.pascal

Article #92614

Back to pl.comp.lang.pascal Previous Next

#92614

From: Andrzej Grażyński
Date: Thu, 25 Sep 2008 08:36

30 lines
1430 bytes

Łatwo sobie z tym problemem poradzić. W klasie, z której dziedziczą 
wszystki klasy programu, należy dopisać konstruktor:


constructor <klasa bazowa>.RecoverType;
begin
   { dokładnie tak, żadnej treści }
end;


A potem, na końcu własnego konstruktora, dopisac po prostu RecoverType:


constructor <klasa pochodna>.<nazwa konstruktora>....
begin

    ....


      tu można dowolnie nawydziwiać z dziedziczonymi konstruktorami itd, 
itp.

    ...

    RecoverType;
end;



Działa bez zarzutu.

Technical Details

Message-ID: <gbfije$ktg$1@news.onet.pl>

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

References: <20080905121945.03f2cdf2.solaris@be.inspired> <ga9dbc$t6b$1@news.onet.pl> <ga9plv$qtu$1@news.dialog.net.pl>

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: Andrzej Grażyński <grazynsk@petex.com.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Lekarstwo
Date: Thu, 25 Sep 2008 10:36:47 +0200
Organization: Onet.pl
Lines: 35
Message-ID: <gbfije$ktg$1@news.onet.pl>
References: <20080905121945.03f2cdf2.solaris@be.inspired> <ga9dbc$t6b$1@news.onet.pl> <ga9plv$qtu$1@news.dialog.net.pl>
NNTP-Posting-Host: 83-238-237-40.adsl.inetia.pl
Mime-Version: 1.0
X-Trace: news.onet.pl 1222331823 21424 83.238.237.40 (25 Sep 2008 08:37:03 GMT)
X-Complaints-To: usenet@news.onet.pl
NNTP-Posting-Date: Thu, 25 Sep 2008 08:37:03 +0000 (UTC)
X-Sender: 2ysppuKZfnIJFd8Xm5/5BA==
In-Reply-To: <ga9plv$qtu$1@news.dialog.net.pl>
User-Agent: Thunderbird 2.0.0.16 (Windows/20080708)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message