Название функции как значение переменной

type
  TMyFunc = function(a,b:string):string;

{.......}

function GetString(a,b:string):string;
begin
result:=a+b;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
s,s2:string;
begin
s2:='GetString';
MyFunc:=TMyFunc(s2);  // Нужно решить эту строку
s:=MyFunc('a', 'b');
showmessage(s);
end;

То есть мне нужно вызвать функцию, название которой храниться в переменной типа string. Приведенный код не работает, и не может работать. это я просто показал на примере, что мне нужно привести переменную s2 к типу TMyFunc.

Помогите, пожалуйста!

grominfo

type
  TMyFunc = function(a,b:string):string;
{...}

var
  MyFunc:TMyFunc;

{...}

function GetString(a,b:string):string;
begin
result:=a+b;
end;

function FuncExecute(FuncName, a, b:string):string;
var
FunctList:TStrings;
f:TMyFunc;
index:integer;
begin
FunctList:=TStringList.create;
FunctList.AddObject('GetString',@GetString); // добавляем ссылку на функцию в список
index:= FunctList.IndexOf(FuncName);         // получаем индекс функции в списке
if index > -1 then
   begin
     @f:=FunctList.Objects[index];           // присваиваем функцию переменной
     result:=f(a, b);                        // вызываем функцию и возвращаем значение
   end;
FunctList.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage(FuncExecute('GetString', 'a', 'b'));
end;

Тут минус в том, что функции нужно заранее добавлять в список объектов. Но зато данный метод можно использовать как интерпретатор.

тема на форуме

Похожие статьи

• Особенность функции animate (js)
• Смена текста при нажатии на кнопку
• Яндекс карта накладывается поверх зафиксированного хэдера
• Как узнать возвращается ли чему либо результат из функции?
• Функция с переменным количеством параметров
• Создать динамический массив внутри функции так, чтобы он потом не уничтожился
• Как функцией вернуть два значения?
• Передача массива в функцию и его измнение
• Как в php узнать время работы функции?
• Вызывать функцию через определённый промежуток времени