关于自定义函数的问题(100分)

我有几十个自定义函数，定义这些函数的代码已经分别写出。现在我得到了某个函数的
字符串形式。请问，该如何编写代码才能这个字符串形式的函数转换成可以计算的形式
从而得到函数的值（都是浮点型）。注意：不能去管这个字符串到底是哪个函数。

可以用case 实现。
function StringName Function Name
--------------------------------------------
StrGetFloat GetFloat

case function StringName of
StrGetFloat : GetFloat;
end;

case 中使用字符串的例子如下：
function CaseString (const s: string;
const x: array of string): Integer;
var i: Integer;
begin

Result:= -1;
// Default return parameter
for i:= Low (x) to High (x)do
begin

if s = x then
begin
Result:= i;
Exit;
end;

end;

end;

search:= 'delphi3000';
case CaseString (search, ['delphi3000',
'delphipages',
'Torry's']) of
0: s:= 'Excellent!';
1: s:= 'Good source';
2: s:= 'Not bad!';
end;

我有答案了，跟我联系。quickchop@sina.com

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1289838

多人接受答案了。