从100*94这种数据中提取解决方案

从100*94这种数据中提取
从100*94这种数据中提取
也就是说   输入数据为100*94     要把100赋值给A90赋值B     怎么写啊   谢谢


------解决方案--------------------
var
A, B : integer;
begin
A := StrToInt(Copy(Edit1.Text, 1, Pos( '* ',Edit1.Text)-1));
B := StrToInt(Copy(Edit1.Text, Pos( '* ',Edit1.Text)+1, MaxInt));
ShowMessage(IntToStr(A*B));
end;


附：不知楼主是不是要输入表达式的值并进行运算，如果是，可以试一下下面的代码：

uses ComObj;

var
vScriptControl : OLEVariant;
X : string;
begin
try
X := '12*4 ' ;
vScriptControl := CreateOleObject( 'MSScriptControl.ScriptControl ');
vScriptControl.Language := 'VBScript ';
ShowMessage(vScriptControl.Eval(X));//结果： 48
except
ShowMessage( '不能正常计算，请检查算式！ ');
end;
end;