Klasse mit Nachfahren als Parameter

[Vasco da Gama]

Hallo Spezialisten

Ich bin wohl einfach zu blöd... wie kann ich einer procedure als Parameter eine Klasse zuweisen z.B.
procedure MachWas(Dingens: TImageSprite); sodass auch die Nachfahren angesprochen werden...

Delphi-Quellcode:

TIrgendwas = class(TImageSprite)
...

Falls ihr nicht wisst, was ich meine
Denn davon kanns viele geben, und ich will nicht für jede eine eigene procedure....
Danke. mfG

[mkinzler]

Da Kindsklassen in einer IS-A Beziehung zur Elternklasse stehen, kannst du jeder abgeleitete Klasse anstatt der Superklasse übergeben

[Vasco da Gama]

Naja, aber:
MachWas(Irgendwas1); funktioniert nicht,...
Wenn ich dich richtig verstanden habe sollte es aber oder?

[mkinzler]

Eigentlich geht das Was für ein Fehler wird angezeigt?

[himitsu]

WAS funktioniert nicht? (Fehlermeldung!)

denn es sollte ja so funktionieren.

[add]
siehst du ja an der VCL, wo man z.B. statt TComponent alle dessen Nachfahren übergeben kann.

[DeddyH]

Zitat von Vasco da Gama:

funktioniert nicht,..

Ich hasse diese Aussage ohne nähere Beschreibungen

[Vasco da Gama]

Tut mir Leid (ich hätte schwören können)
ich habe es euch wohl falsch hingeschrieben,
so geht es nicht:


MachWas(TIrgendwas); nämlich:

Zitat:

[DCC Fehler] Unit1.pas(991): E2010 Inkompatible Typen: 'TImageSprite' und 'Class reference'

[mkinzler]

Ist ja auch klar, das als Parameter immer ein Objekt und keine Klasse erwartet wird.
Oben hast du eine Instanz angegeben.

[DeddyH]

MachWas(Blubb: TIrgendwas); [edit] *Oops*, in der Art stand es ja bereits im Ausgangspost [/edit]