再开一贴,放分,简单的填空,白捡分,看谁运气好
窗口上有Edit1和Edit2两个控件，要求做到
1)当用户在Edit1输入内容时，清空Edit2的内容
2)当用户在Edit2输入内容时，清空Edit1的内容

procedure TForm1.OnEdit1Change(Sender : TObject);
begin
//请在这里写代码
end;

procedure TForm1.OnEdit2Change(Sender : TObject);
begin
//请在这里写代码
end;

=========================================
这是一填空题,只允许在规定的地方写上代码


上次题目出错了,录入错误

要求逻辑正确,简练,和上次不同,这次答对才给分

为了防止不劳而获的人,所以出了这道题,请原谅 "顶 ", "up "等字眼者无分.
本来想多放点分,可是提示不允许



[解决办法]
procedure TForm1.OnEdit1Change(Sender : TObject);
begin
//请在这里写代码
Edit2.onchange := nil;
edit2.text := ' ';
Edit2.onchange := OnEdit2Change;
end;

procedure TForm1.OnEdit2Change(Sender : TObject);
begin
//请在这里写代码
Edit1.onchange := nil;
edit1.text := ' ';
Edit1.onchange := OnEdit1Change;
end;
[解决办法]
procedure TForm1.OnEdit1Change(Sender : TObject);
begin
//请在这里写代码
Edit2.Text:= ' ';
end;

procedure TForm1.OnEdit2Change(Sender : TObject);
begin
//请在这里写代码
Edit1.Text:= ' ';
end;

[解决办法]
procedure TForm1.OnEdit1Change(Sender : TObject);
begin
//请在这里写代码
if TEdit(Sender).Tag = 1 then
Exit;
Edit2.Tag := 1;
Edit2.Clear;
Edit2.Tag := 0;
end;

procedure TForm1.OnEdit2Change(Sender : TObject);
begin
//请在这里写代码
if TEdit(Sender).Tag = 1 then
Exit;
Edit1.Tag := 1;
Edit1.Clear;
Edit1.Tag := 0;
end;

如果用一句话，似乎不可能实现。。。不知道填空是不是和英语中的完形填空一样。