Теперь очень интересно стало, раз можно в рунтайм находить компоненты и их свойства, и к ним обращаться, возможно ли находить по имени каким-либо образом функции, лежащие в подключаемых модулях, и их вызывать?.. Т.е. что-то вроде
y:=findfunction('cos',x); //y:=cos(x);

Ну если тебе известно имя функции(так же ее параметры) и она экспортируется по имени, то ищи ее при помощи GetProcAddress.

Хотя это не так просто, как ты подумал, Illusion Dolphin, но всё же можно это реализовать...
Внале нужно узнать адрес функции:
1) Если функция является апишной, или просто из какой-то DLL, то GetProcAddress. Так можно узнать функцию по её

названию, пример: GetProcAddress(hModule, 'GlobalAlloc');
2) Если функция таковой не является, то адрес её можно получить так: @FunctionName или Addr(FunctionName).
Только тут загвоздка в том, что FunctionName - это уже не строковый параметр, а сама функция. Пример:
FuncAddr := @AnsiLowerCase или FuncAddr := Addr(AnsiLowerCase);
Так что тебе придется сделать что-то подобное:

Код

function FindFunc (const FuncName : string) : pointer; begin  if FuncName = 'Cos' then Result := @cos  else if FuncName = 'Sin' then Result := @sin  else if FuncName = 'AnsiLowerCase' then Result := @AnsiLowerCase  ... end;

Только как видишь, нужно при создании программы знать, какие функции ты будешь использовать...
3) Если ты со вторым пунктом смиришься, то встретишь такую пакость:
Это будет работать, но не со всеми функциями и процедурами. Так будет работать только с малой частью функций модуля System и со всеми функциями других модулей...
Вот, например, с Cos или Sin так не пройдет. Если тебе надо использовать именно их, то придется делать липовые

функции-переадресаторы:

Код

function my_Cos (x : real) : real; begin  Result := Cos(x); end; procedure my_Append (var f : TextFile); begin  Append (f); end; ...

и тогда в FindFunc будет так:

Код

if FuncName = 'Cos' then Result := @my_Cos  else if FuncName = 'Append' then Result := @my_Append  else if ...

4) И всё равно есть функции, с которыми так дело не пройдет вообще (WriteLn, например).

Получив таким образом адреса функций можно их использовать.
Только нужно для каждого типа функций создавать свой тип:

Код

type  TRealFunc_Real = function (x : real) : real; // подойдёт для Cos, Sin...  TIntegerFunc_Real = function (x : real) : integer; // Подойдёт для Round, Trunc...  TProc_StrRealInt = procedure (const s : string; var V; var i : integer); // для Val  ... begin  y := TRealFunc_Real(FindFunc('Cos'))(x); // y := Ros(x);  i := TIntegerFunc_Real(FindFunc('Round'))(x); // i := Round(x);  TProc_StrRealInt(FindFunc('Val'))('123.456', R, Code); // Val('123.456', R, Code); // (R : Real) end;

Уфф... Вроде ничего не упустил... Короче много ограничений...

В готовом EXE файле названий функций нет, следовательно на этапе компиляции надо знать какие функции будут искаться, иначе никак.

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

Цитата

Только нужно для каждого типа функций создавать свой тип

ну это не обязательно можно сделать такую функцию: function DoRegisterCall(func: Pointer; params: array of const): DWORD;

такое я уже делал если понадобиться могу найти.