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

Question

窗口上有Edit1和Edit2两个控件，要求做到
1)当用户在Edit1输入内容时，清空Edit2的内容
2)当用户在Edit1输入内容时，清空Edit2的内容procedure TForm1.OnEdit1Change(Sender : TObject);
begin
  //请在这里写代码
end;procedure TForm1.OnEdit2Change(Sender : TObject);
begin
  //请在这里写代码
end;=========================================
为了防止不劳而获的人,所以出了这道题,请原谅"顶","up"等字眼者无分.
本来想多放点分,可是提示不允许

Answer 1

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

Answer 2

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;

Answer 3

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;以上纯属好玩。呵呵。

Answer 4

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;