Wie Methode als Pointer übergeben?

[BlueStarHH]

Zitat von dummzeuch:

In der Regel behilft man sich damit, dass man eine function schreibt, die dann mittels einer globalen Referenz die Methode der Klasse aufruft.

Delphi-Quellcode:

var
  gblClass: TMyClass;

function Callback(const s: string): string;
begin
  Result := gblClass.MyFunc(s);
end;

procedure TMyClass.MyProc;
begin
  gblClass := Self;
  Script.AddFunc(@Callback);
end;

Das sieht schonmal gut aus. Danke! Kann man das noch kürzer hinbekommen, da es sehr viele solcher Methoden gibt? Irgendwie eine anonyme Methode als Pointer übergeben und dort die eigentliche Methode der Klasse aufrufen? So in Pseudocode:

Delphi-Quellcode:

procedure TMyClass.MyProc;
begin
  gblClass := Self;  
  
  Script.AddFunc(procedure Callback(const s: string)
    begin
      Result := gblClass.MyFunc(s);
    end
  );

end;