我如何使一个函数在TEdit中减去和添加值?

Question

我是新的编程，我正在寻找一个命令来添加和减去值。

我将有一个初始值为0的TEdit.Value和两个按钮，其中一个为"+";其中一个是"- "，增加或减少价值，但我还是不知道怎么做，谁能给我一个灯?

我查找了一些如何做这件事的例子，但我没有找到任何可以帮助我的。

Answer 1

您可以使用StrToInt()将Edit的当前Text字符串转换为整数，然后增加/减少整数，然后使用IntToStr()将整数转换为字符串并将其分配回Text属性。例如:

var Value: Integer := StrToInt(Edit1.Text);
Inc(Value); // or Dec()
Edit1.Text := IntToStr(Value);

然而，更好的选择是使用专门设计用于处理数字输入的UI控件，例如TSpinEdit，或附加到Edit控件的TUpDown。