delphi - 如何读取和更改 TEdit 控件的值？

Question

我有一个表单 TForm1，其中包含 5 个 TEdit 和 2 个 TBitBtn。

我还需要该程序，以便在 BitBtn1Click 上的 Edit1 和 Edit2 中输入数字数据后，Edit1和 Edit2 值将相加并显示在 Edit3 中。

Answer 1

你想做这样的事情:

var
  val1, val2, sum: Integer;
...
val1 := StrToInt(Edit1.Text);
val2 := StrToInt(Edit2.Text);
sum := val1 + val2;
Edit3.Text := IntToStr(sum);

如果你想要浮点运算，就这样做

var
  val1, val2, sum: Double;
...
val1 := StrToFloat(Edit1.Text);
val2 := StrToFloat(Edit2.Text);
sum := val1 + val2;
Edit3.Text := FloatToStr(sum);