Ausführen einer Methode bei MethodAddress

[Delphi.Narium]

Zitat von himitsu:

Zitat von Delphi.Narium:

weder ... noch prüfst Du, ob aComp überhaupt vom Typ TGraphicControl ist.

Doch doch.

Wenn es Keines ist, dann gibt es eine "passende" Exception, denn (acomp as TGraphicControl) .

Deshalb prüfe ich mit if Assigend(aComp)

Zitat von himitsu:

Aber hier TGraphicControl(acomp) würde es nicht geprüft.

deshalb prüfe ich mit and (aComp is TGraphicControl)

Zitat von himitsu:

Achtung, IS und AS haben beim NIL einen kleinen UInterschied.

IS sagt False, wenn es NIL ist, also wenn es nicht "dieser Typ" ist.
AS dagegen läßt NIL durch, da es nur püpft, ob es der richtige Typ ist ... und NIL ist nicht ein "falscher Typ", da es nichts ist.

und mit dem anschließenden then TGraphicControl(acomp).Height := 200; sollte die Zuweisung auf height erst dann erfolgen, wenn acomp sowohl etwas zugewiesen wurde, also nicht Nil ist, dieses Etwas vom Typ TGraphicControl ist und damit über das Attribut Height von TGraphicControl geerbt haben sollte. Soweit ich das sehe, sollten die von Dir genannten Bedingungen alle (ohne Exception) geprüft und vor dem Zuweisen von 200 auf das Attribut Height erfüllt sein. Also dürfte auch

Zitat von himitsu:

Dann kannst du darauf casten

erfüllt sein.

[joachimd]

Tu Dir einen Gefallen und verwende - wie Jaenicke weiter oben vorgeschlagen hat - Interfaces. Lose koppeln, wo immer möglich.
Das gibt Dir die Möglichkeit, auch an fremde Klassen mit ganz anderer Vererbungs-Hierarchie noch etwas dranzukleben.

[jaenicke]

Interfaces bieten viele Vorteile, aber diese kommen erst richtig zur Geltung, wenn man sie auch in der Architektur berücksichtigt. Insofern ist die gemeinsame Basisklasse erst einmal die einfachste Lösung für das konkrete Problem.

Trotzdem macht es natürlich Sinn, sich anzuschauen, wie es mit Interfaces gehen würde, um diese künftig im Hinterkopf zu haben.