一个简单的算法!!

Question

乘法运算,edit1里面是被乘数,edit2里面是乘数,我想让button单击一次乘数就乘一次,就象
3*2,单击一次就乘一次2

Answer 1

procedure TForm1.Button1Click(Sender);
const
   Value: Integer = 1;
var
   intA, intB, intC: Integer;
begin
   Val(Edit2.Text, intB, intC);
   if Value = 1 then
   begin
      Val(Edit1.Text, intA, intC);
      Value := intA * intB;
   end
   else
      Value := Value * intB;
end;

Answer 2

procedure TForm1.Button1Click(Sender);
var
  N1, N2: Integer;
begin
  N1 := StrToInt(Edit1.Text);
  N2 := StrToInt(Edit2.Text);
  N1 := N1 * N2;
  Edit1.Text := IntToStr(N1);
end;

Answer 3

zVal(Edit2.Text, intB, intC);这一句是什么意思?