放分: 一道极简单的笔试题,参与有份解决办法

放分: 一道极简单的笔试题,参与有份
窗口上有Edit1和Edit2两个控件，要求做到
1)当用户在Edit1输入内容时，清空Edit2的内容
2)当用户在Edit1输入内容时，清空Edit2的内容

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

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

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

------解决方案--------------------
procedure TForm1.OnEdit1Change(Sender : TObject);
begin
//请在这里写代码
Edit2.Clear;
end;
------解决方案--------------------
解决这道题，有很多种方式。
呵呵
网上有的。
------解决方案--------------------
要求2怎么和要求1一样的呢？（是不是我眼花了 @_@）
------解决方案--------------------
晕~
:= ' '
就行嘛
------解决方案--------------------
要求2怎么和要求1一样的呢？（是不是我眼花了 @_@）

-------------------
我也看花眼了
------解决方案--------------------
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit2.OnChange := nil;
Edit2.Clear;
Edit2.OnChange := Edit2Change;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
Edit1.OnChange := nil;
Edit1.Clear;
Edit1.OnChange := Edit1Change;
end;


------解决方案--------------------
if Edit2.text > ' ' then
Edit2.text := ' '
(或者Edit2.Clear SetWindowText((Sender as TEdit).Handle, ' '))
或者添加一个布尔变量：FClearTag
if FClearTag then
begin
Edit2.Text := ' ';
FClearTag := False;
end;
然后在其OnEnter事件中添加FClearTag := Ture;

以上纯属好玩。呵呵。
------解决方案--------------------
var
Form1: TForm1;
Flag: Boolean;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Flag then
begin
Edit2.Clear;
Flag := not Flag;
end;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if not Flag then
begin
Edit1.Clear;
Flag := not Flag;
end;
end;