Question

delphi如何判断edit文本是否修改？

已知：1个edit控件，1个button控件。我要实现的是：运行程序后，先点击button控件，输出消息：文本无修改。然后edit控件输入：edit1.text:='123';，点击button控件，输出消息：文本被修改了。

Answer 1

private
flag : boolean; // 声明一个全局的私有变量
procedure edit1onchange;
begin
flag := true;
end;
procedrue buttononclick;
begin
if flag then
shomessage('已经改动了');
else
showmessage('文本无修改');
flag := False;
end;

Answer 2

保存edit1的原始值，在点击button按钮的时候，取一下edit1当前的值，比较一下这个2个值即可。

Answer 3

定义一个变量用来保存文本是否被修改初始值为false，edit控件有onchange事件，在该事件里修改变量值为true