Klasse mit Nachfahren als Parameter

[Vasco da Gama]

Hallo Spezialisten :thumb:

Ich bin wohl einfach zu blöd... wie kann ich einer procedure als Parameter eine Klasse zuweisen z.B.

Delphi-Quellcode:

procedure MachWas(Dingens: TImageSprite);

sodass auch die Nachfahren angesprochen werden...

Delphi-Quellcode:

TIrgendwas = class(TImageSprite)
...

Falls ihr nicht wisst, was ich meine :gruebel:
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:

Delphi-Quellcode:

MachWas(Irgendwas1);

funktioniert nicht,...
Wenn ich dich richtig verstanden habe sollte es aber oder? :gruebel:

[mkinzler]

Eigentlich geht das :gruebel: 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:

Zitat von Vasco da Gama

funktioniert nicht,..

Ich hasse diese Aussage ohne nähere Beschreibungen :wall:

[Vasco da Gama]

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

Delphi-Quellcode:

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]

Delphi-Quellcode:

MachWas(Blubb: TIrgendwas);

[edit] *Oops*, in der Art stand es ja bereits im Ausgangspost [/edit]