如何读取和更改TEdit控件的值？ [英] How do I read and change the value of a TEdit control?

问题描述

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

I have a Form TForm1 having 5 TEdit and 2 TBitBtn.

我还需要该程序，以便在 Edit1 和 Edit2 在 BitBtn1Click ， Edit1 和 Edit2 值将相加并显示在 Edit3 中。

I also need the Program so that after inputting Numeric Data in Edit1 and Edit2 on BitBtn1Click, Edit1 and Edit2 value will summed and will be displayed in Edit3.

推荐答案

您想要做这样的事情：

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

如果要进行浮点运算，请这样做

If you want floating point arithmetic do it like this

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

这篇关于如何读取和更改TEdit控件的值？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！