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

[Tesak]

Здравствуйте, уважаемые знатоки!

На Делфи программирую уже много лет, но тут столкнулся с ламерской проблемой, которую не могу решить.

Есть такой код

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.

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

[Аватар]

Такое умеют разве что интерпретаторы. Делфи не умеет. Разве что
if s2='GetString' then GetString(s1,s3);

[Tesak]

Жаль. Дело в том, что список функций довольно большой, и будет довольно нелепо выглядеть код, состоящий из множества if ... then ... elseif ....

В скриптовых языках (например, PHP) это делается довольно просто, а вот в Делфи....

Может у кого есть еще идеи?

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

[Tesak]

Спасибо! То что нужно

[grominfo]

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

[phomm]

Если нужно в нативном дельфи вызвать функцию, чьё имя задаётся извне - Вы что-то делаете не так.
Если же по какой-то причине Вам чрезвычайно потребовалась данная функция, то есть 2 пути - 1. подключить скриптовый интерпретатор (хотя самого паскаля) и данную логику реализовать в нём, но это непростая задача всё равно.
2. Попробовать RTTI задействовать, он позволяет по имени определить адрес кода, но налагает ограничения свои (код должен быть в классах, с областями видимости тоже какие-то тонкости), плюс Вам ручками придётся прописывать касты (преобразования типов) и проверку ошибок.

[саша40]

Автор, для большого количество условий существует Case of.

[Tesak]

Сообщение от саша40

Автор, для большого количество условий существует Case of.

Case of для string ?

Всем спасибо за ответы. Мне подошел совет от grominfo

[northener]

Сообщение от Tesak

В скриптовых языках (например, PHP) это делается довольно просто, а вот в Делфи....

Очень кстати (из надёжного источника) термин язык Дельфи дезавуирован. Снова язык называется Object Pascal.