Как обратиться к методу класса по его имени?

[min@y™]

достаточно ли будет обрамить ...блаблабла...

нафига спрашиваешь? просто возьми и попробуй!

Не, Delphi старенькая - 6-ка.

Не надо так!

[ipdd]

Итак, с RTTI в целом разобрался, свойства по их имени программа "цепляет". Но! Есть проблемы с методами:
есть класс:

type TParticipant = class(TPersistent)
published
function FreeStyle(template: String): String; virtual; abstract;
end;

у него есть наследник:

type TFL = class(TParticipant)
published
function FreeStyle(template: String): String; override;
end;

функция:

type FreeStyle = function(template: String): String of object;

function Exchange(tag: String; Argument: TObject): String;
var miniTags: String;
Meth: TMethod;
FS: FreeStyle;
FSArg: String;
   begin
   FSArg:=copy(tag,pos('@@',tag)+2,length(tag)-pos('@@',tag)-1);
   Delete(tag,pos('@@',tag),length(tag)-pos('@@',tag)+1);
   Meth:=GetMethodProp(Argument,tag);
   @FS:=Meth.Code;   
   result:=FS(FSArg);
   end;

- сопоставляет с методом, указанным в переменной tag соответствующий метод класса.
При подстановке в качестве аргумента этой функции tag:=FreeStyle@@E:\123.txt программа выдает ошибку типа EPropertyError "Property FreeStyle does not exist". Но ведь этот метод есть и у TParticipant и у его потомка - TFL!!! Почему его не видит программма? Где ошибка?...

[min@y™]

функция:
type FreeStyle = function(template: String): String of object;

ой, не надо так! такое именование типов приводит к путанице и багам.

type 
  TFreeStyleFunc = function(template: String): String of object;

Ну а текст ошибки намекает, что это должно быть свойство процедурного типа, а не явный метод. Могу ошибаться, предупреждаю.

И, таки да, говорю за модератора: я тя прошу, плиз, ну оформляй ты код как врезку (#), иначе хочется просто сломать тебе нос проигнорить твой пост.

[phomm]

Читая http://docwiki.embarcadero.com/Libra....GetMethodProp ,
я так понял, что это не поиск метода, а поиск ивента (проперти типа метод), чтобы найти то, что Вы ищете, предположу, что надо объявить

published MahFreeStyle: TFreeStyleFunc; // см коммент выше про тип, я его удваиваю

саму функцию в классе оставить, в конструкторе сделать присвоение MahFreeStyle := FreeStyle; а потом уже поиск и вызов

Meth := GetMethodProp(Argument,tag);
if not Assigned(Meth) then
// чего-нибудь говорим/эксепшеним
result := TFreeStyleFunc(Meth)(FSArg); // я так кастую тметод'ы для их вызова

за всю цепочку не ручаюсь (чисто по своим соображалкам и понимаю хелпа так написал, без проверки в дельфи), до такого не было надобности, а вот за каст и вызов ручаюсь (использую при мультиподписке на 1 ивент многих обработчиков), а вот Ваш каст (@FS:=Meth.Code) это какой-то мрак.

[ipdd]

Сообщение от min@y™

И, таки да, говорю за модератора: я тя прошу, плиз, ну оформляй ты код как врезку (#), иначе хочется просто сломать тебе нос проигнорить твой пост.

Виноват-с! Просто не знал, как можно оформить куски кода в такие серенькие поля! Теперь знаю, свой пост поправил, в дальнейшем обязуюсь свято выполнять указанное требование!

[ipdd]

Вот эту часть кода:

result := TFreeStyleFunc(Meth)(FSArg);

в упор не могу понять! Можно ка-а-пельку поподробнее?...
Про "проперти типа метод" - здесь Вы очень наглядно объяснили, спасибо огромное!

[phomm]

Тут кастуется структура(запись/record, тметод не явлется типом функция/процедура/метод) Meth в тип TFreeStyleFunc, получая таким образом указатель на метод конкретного экземпляра класса (указатель неявный, "inplace") и тут же метод вызываем с нужными аргументами.
У Вас примерно то же самое написано, только через явные операции над указателями и с промежуточными переменными, но я такое не пробовал, может быть и так норм, мне просто мой способ видится более понятным.