一个简单的算法!!

[5043682]

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

[很土]

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;

[Corn1]

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;

[何鲁青]

玉米...

[5043682]

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

[xinqingbucuo]

玉米...的简单