Einstieg in Zeiger auf Methoden / Funktionen

[generic]

Moin DP,

das nächste Video ist fertig. Heute zeige ich einen Einstieg in Zeiger auf Methode bzw. Funktionen.
Dabei beschränke ich mich erst einmal auf die Benutzung. In einen weiteren Video, zeige ich dann die eigene Implementierung.

Mit Zeiger auf Funktionen, könnt ihr ein Dinge einfach entkoppeln und ggf. im vorhandenes im Verhalten beeinflussen.
Zum Beginn zeige ich wie die VCL Ereignisse für die Oberfläche verwendet werden können und ggf. per Hand implementiert werden können. Später im Video ändern wir das Sortierungsverhalten einer Kundenliste und die Entkopplung der Kunden-Logik von der Oberfläche.

Der Quelltext vom Video ist hier:
ZeigerAufFunktionenVideo.7z

Das Video ist dieses:
https://youtu.be/7PL_H2aBUOI

[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;