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

Question

我的表格TForm1有5 TEdit和2 TBitBtn.

我还需要程序,以便在输入数字数据后Edit1和Edit2上BitBtn1Click,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);