如何判斷dbedit的內容是否變化,即進入dbedit前後的內容不同

DBEdit1: TDBEdit; Button1: TButton; procedure DBEdit1Enter(Sender: TObject); procedure DBEdit1Exit(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public ENTERSTR,EXITSTR:STRING; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.DBEdit1Enter(Sender: TObject); begin ENTERSTR:=DBEDIT1.Text; end; procedure TForm1.DBEdit1Exit(Sender: TObject); begin EXITSTR:=DBEDIT1.TEXT; end; procedure TForm1.Button1Click(Sender: TObject); begin IF ENTERSTR=EXITSTR THEN SHOWMESSAGE('NOT CHANG'); end; end. 堅持從洗馬桶做起 Eric

我的意思是dbedit可以輸入,也可以從按鈕查詢,然後傳值給dbedit,當在dbedit輸入然後在事件onexit寫如下代碼select * from table1 where fieldname=dbedit1.text 如果沒有找到記錄,則dbedit.setfocus,如果從按鈕傳值給dbedit,此時光標仍在dbedit里,如光標退出時,dbedit1的內容沒有改變,則不執行dbedit的onexit事件,重新改變時則執行

您好﹗    DBEdit元件有個Modified屬性﹐您可使用此屬性做判斷﹐例﹕

begin
  if DBEdit1.Modified then
    ShowMessage('內容已改變')
  else
    ShowMessage('內容未改變');
end;

========================= 我是您的朋友﹐有您真好﹗ =========================

------
忻晟