Ausführen einer Methode bei MethodAddress

[Olli73]

Entweder guckst du hier ab:

https://docwiki.embarcadero.com/Libr....MethodAddress

Oder du machst sowas:

(aComp as TControl).Repaint;

[himitsu]

Entweder selbst durch die TypeInfo kämpfen TypInfo
oder die erweiterte RTTI benutzen TRTTI.

Die Funktionen an TObjekt kennen keine Typen (das sind die Funktionen, welche der DFM-Loader/Writer nutzt, aber deswegen prüft/vergleicht inzwischen der FormDesigner, in der IDE, nun beim Speichern zumindest mal die Typen der Felder und Methoden-Parameter zwischen PAS und DFM)

[josef-b]

So richtig komme ich noch nicht klar.

Mit einer einzelnen bestimmten Komponente gehts..

Delphi-Quellcode:

procedure TFMain.repaint_bauteil(acomp_name: string; astatus: integer);
var
  aComp: TComponent;
  acolor: TColor;
begin
aComp := FMain.FindComponent(aComp_Name);
acolor := (acomp as TMyOwnComp).FarbeDefault;

case aStatus of
  99: Acolor := clred;
  100: Acolor := clyellow;
  end;

(acomp as TMyOwnComp).Farbe := acolor;
(acomp as TMyOwnComp).Repaint;

end;

Da ich aber verschiedene eigene Klassen habe (verschiedene eigene Grafiken) vom
Typ TmyOwnCompName1, TmyOwnCompName2..... dachte ich mir, es geht vielleicht wie folgt,
tuts aber nicht

Alle Komponenten haben die Eigenschft Farbe und die Methode Repaint;

Delphi-Quellcode:

procedure TFMain.repaint_bauteil(acomp_name: string; astatus: integer);
var
  aComp: TComponent;
  acolor: TColor;

  aClassType: TClass;

begin

aComp := FMain.FindComponent(aComp_Name);

aCLassType := aComp.ClassType;

.....

(acomp as aClassType).Farbe := acolor; // geht nicht *******
end;

[Olli73]

Wie ist denn die Klassenhierarchie für deine Komponenten?

[Olli73]

Wenn das z.b irgendwie alles von t-control abgeleitet ist, dann reicht as TControl für repaint.

[jaenicke]

Wenn das alles deine eigenen Klassen sind, leite sie doch einfach von einer gemeinsamen Elternklasse ab, die diese Funktionalität bereitstellt. Dann kannst du darauf casten.

Wenn das nicht geht, kannst du ein Interface verwenden, in dem die Funktionalität erreichbar ist, so dass deine Klassen dieses alle implementieren können. Dann kannst du mit Supports dieses holen und nutzen.

[himitsu]

Casten und die Methode "direkt" aufrufen ist natürlich immernoch das Beste, am Einfachsten über einen gemeinsamen Vorfahren.

Delphi-Quellcode:

type
  TMyForm = class(TForm)
  private
    procedure Test;
    procedure DoLog(S, S2: string);
  end;

procedure TMyForm.Test;
begin
  for var M in TRttiContext.Create.GetType({TMyForm}Self.ClassType).GetMethods do  // ja, es fehlt ein .FindMethod('DoLog') ... k.A. warum die immer wieder so dämlich sind
    if M.Name = 'DoLog' then
      M.Invoke(Self, ['abc', 'def']);
end;

[josef-b]

Zitat von jaenicke:

Wenn das alles deine eigenen Klassen sind, leite sie doch einfach von einer gemeinsamen Elternklasse ab, die diese Funktionalität bereitstellt. Dann kannst du darauf casten.

So habe ich das jetzt gemacht. Funktioniert prima. Vielen Dank für Eure Hilfe