Einstieg in Zeiger auf Methoden / Funktionen

[dipo]

Hallo Zusammen,

ich erzeuge in einer Procedur ein MainMenu aus einer Datenbank (SQLite). In diesem Menu möchte ich dem OnClick
der einzelen Menupunkten eine wert zuweien den ich leider auch nur als String habe.
Mit "methods := rttiType.GetMethods;" bekomme ich ja schon den Namen, aber wie kann ich das "TNotifyEvent"
zuweisen? Wenn ich das ganze richtig verstanden habe geht das wohl nur über Pointer. Aber wie ????

Über eine Antwort würde ich mich sehr freuen.

Mfg Dirk

[mytbo]

Zitat von dipo:

Mit "methods := rttiType.GetMethods;" bekomme ich ja schon den Namen, aber wie kann ich das "TNotifyEvent"
zuweisen? Wenn ich das ganze richtig verstanden habe geht das wohl nur über Pointer. Aber wie ????

Vielleicht hilft dir dieser Thread weiter.

Bis bald...
Thomas

[dipo]

Ich danke dir erst mal für die schnelle Antwort.

Aber leider wird in diesen Beispielen mein Problem wieder fest zugewiesen :
"strList.OnChange := wrapper.DoChange1;".

Was ich bräuchte ist z.B. :

MeinString := "Bla Bla Bla"

"strList.OnChange := MeinString"

[Rollo62]

Meinst Du etwa?
https://docwiki.embarcadero.com/Libr...trings.Strings

Delphi-Quellcode:

MyStrings.Strings[0] := 'This is the first string';
MyStrings[0] := 'This is the first string';

[Delphi.Narium]

Suchst Du sinngemäß sowas? (nur ungetestet hingedaddelt - muss also nicht funktionieren)

Delphi-Quellcode:

uses
  Typinfo, Menus, ...;

procedure TForm1.FormCreate(Sender: TObject);
var
  sMethode : String;
  mi       : TMenuItem;
begin
  Tabelle.Open;
  while not Tabelle.Eof do begin
    sMethode := Tabelle.FieldByName('MenueZuzuweisendeMethode').AsString;
    if PropIsType(Self,sMethode,tkMethod) then begin
      mi         := TMenuItem.Create(Self);
      mi.Caption := Tabelle.FieldByName('MenueCaption').AsString;;
      mi.Name    := Tabelle.FieldByName('MenueName').AsString;;
      mi.Hint    := Tabelle.FieldByName('MenueHint').AsString;;
      SetMethodProp(mi,sMethode,GetMethodProp(Self,sMethode));
      // ... und alle weiteren zu setzenden Eigenschaften ...
    end;
    Tabelle.Next;
  end;
  Tabelle.Close;
end;

Statt Self ggfls. die Klasse, bei der die gewünschten Methoden zu finden sind, z. B. ActionList, ...

[himitsu]

Name (String) zu Methodenzeiger

* das gute alte TObject.MethodAddress (welches auch der DFM-Loader benutzt)
* oder über die RTTI TRttiMethod.CodeAddress


TRttiContext.Create.GetType(TIrgendwas).GetMethods -> Methode raussuchen (gibt leider kein FindMethod) und dann TRttiMethod.CodeAddress

Delphi-Quellcode:

var Method: TMethod;
Method.Code := CodeAddress;
Method.Data := KlassenInstanz;  // z.B. Self
x.OnIrgendwas := TNotifyEvent(Method);  // oder welchen Typ auch immer das OnIrgendwas hat

Delphi-Quellcode:

var Event: TMethod;

Event.Code := Self.MethodAddress('Test');
Event.Data := Self;

// oder
for var Method in TRttiContext.Create.GetType(Self.ClassType).GetMethods do
  if SameText(Method.Name, 'Test') then begin
    Event.Code := Method.CodeAddress;
    Event.Data := Self;
  end;