谁不看就后悔

Question

var v1,v2,v3:variant;
   v1:=4;
   v2:='4*5';
   v3:=v1+v2;
如何使 v1:=v2+v3  等于24这个值

Answer 1

在VFP中用宏可以搞定，但在DELPHI中较困难。

Answer 2

function getvalue(N:String):Integer;
var
  k:integer;
begin
  k:=pos('*',n);
  result:=Strtoint(N,1,k-1)*Strtoint(N,k+1,length(n)-k);
end;var v1,v2,v3:variant;
begin
   v1:=4;
   v2:='4*5';
   v3:=v1+getvalue(v2);
end;

Answer 3

这样不行吗？
v3:=v1+strtoint(v2);

Answer 4

这就像要将字符型的'<'转换成运算符<一样，没多大意思；
谁能解决我说的问题，可以另加分