有点头疼的问题，可能不是那么难！

Question

Delphi中是否有如此的函数
**********************************
var
  str:string;
  reslt:real; 
begin
  str:='3*4*5';
  reslt:=XXX(str);
end;
***********************************
结果：
reslt＝60
是否有XXX()这样的函数来实现？
或者控件中含有？ 
请问函数名是什么？
 

Answer 1

javascript里有这样的函数，不知道DELPHI里有没有？

Answer 2

function xxx( str:string):integer;
var
  i, j : integer;
begin
  j := 1;
  i := pos( '*', str );
  while i>0 do
  begin
    j:=j * StrToInt(Copy(str,1,i-1));
    Delete(str,1,i);
    i := pos( '*', str );
  end;
  j := j*StrToInt(str);
  reuslt := j;
end;

Answer 3

http://community.csdn.net/Expert/topic/3670/3670346.xml?temp=.5508539