Question

delphi 文本框值 相乘出错~大家帮忙看看

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text :=StrToInt(Edit1.Text) * StrToInt(Edit2.Text);
end;

哪出错了.....

Answer 1

StrToInt(Edit1.Text) * StrToInt(Edit2.Text) 得出的结果是integer类型，而Edit3.Text是string类型，integer类型不可赋值给string类型，应转换：
Edit3.Text :=IntToStr(StrToInt(Edit1.Text) * StrToInt(Edit2.Text));

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
Var
A, B: Integer;
begin
if (TryStrToint(Edit1.Text, A)) And (TryStrToint(Edit2.Text, B)) then
begin
Edit3.Text := format('%d', [A * B]);
end
else
begin
// 输入错误
end;
end;

Answer 3

只转换了两个表单的结果为string;
可是.结果存放的表单类型没有转换.

Answer 4

说的不清楚

多个文本框中的数字相乘，那就用StrToInt(Edit1.Text) * StrToInt(Edit2.Text) ...