Path: csiph.com!x330-a1.tempe.blueboxinc.net!usenet.pasdenom.info!news.albasani.net!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: Hans-Peter Diettrich <DrDiettrich1@aol.com>
Newsgroups: alt.comp.lang.borland-delphi,comp.lang.pascal.delphi.misc,alt.lang.delphi
Subject: Re: How to call class method by reference?
Date: Wed, 28 Dec 2011 06:33:20 +0100
Lines: 12
Message-ID: <9lvpipFdjfU1@mid.individual.net>
References: <4efa3528$0$1191$65785112@news.neostrada.pl>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-2; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: individual.net AogXR1+roi94TL7BjiOH+QQIioiKQ5B4Tae4bGh40Eb7cPPIm9
Cancel-Lock: sha1:0RzciUDs9Gq7yhH2QMJNK6vwnRI=
User-Agent: Thunderbird 2.0.0.21 (Windows/20090302)
In-Reply-To: <4efa3528$0$1191$65785112@news.neostrada.pl>
Xref: x330-a1.tempe.blueboxinc.net comp.lang.pascal.delphi.misc:141

aaaa schrieb:

> 2) The animals do not have a common base class, so I cannot do something 
> like:
> 
> type TAnimalClass = class of TAnimal;

Then use interfaces.

type TDog = class(TInterfacedObject, IAnimal)

DoDi