绝对的在线等待！

Question

一段录入信息的代码，在Edit的OnChange事件中写了代码，需要执行一些功能，最后在录入完毕后，要把所有的Edit全部清空，但会执行Edit的OnChange事件，这应该怎么做？

Answer 1

你加个判断不就完了，
if Memo1->Lines->Text.Length()>0 

Answer 2

双击edit的onchange事件，在里面写代码啊！

Answer 3

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Length(Edit1.Text)>8 then Edit1.Text:=''
end;
当输入的字符大于8时清空。

Answer 4

在onKeydown中做。录完以回车结束，如if key = 13 then
   Edit1.Clear;

Answer 5

清空的时候如下进行
var
  TempProc:TNotifyEvent;
begin
  ....
  if Assigned(Edit1.OnChange) then
  begin
    TempProc:=Edit1.OnChange;
    Edit1.OnChange:=Nil;
    //清空操作
    Edit1.OnChange:=TemProc;
  end;
end;