Question

要保留编辑框的内容，最好的方法是什么：

procedure TForm1.Button1Click(Sender: TObject);
begin
if checkBox1.Checked then begin
    edit1.text:='';
    edit2.text:='';
end else begin
edit1.text := edit1.Text;
edit2.text := edit2.text;
end
end;

或

procedure TForm1.Button1Click(Sender: TObject);
begin
if checkBox1.Checked = True then begin
    edit1.text:='';
    edit2.text:='';
end else begin
abort;
end
end;

或？学习......

编辑：如果我理解你的话，可以这样做：

if cxcheckbox1.Checked = True then begin
end else begin
edit1.text:='';
edit2.text:='';

Answer 1

我会写如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
  if checkBox1.Checked then begin
    edit1.Text := '';
    edit2.Text := '';
  end;
end;

不需要else子句，因为你不想做任何事情。写edit1.Text := edit1.Text没有意义，因为这不会改变编辑控件的内容。

在实际代码中，建议您为控件添加名称，以便于操作在阅读代码时计算出控件的用途。

最后，为布尔表达式编写if b而不是if b=True是惯用的。要测试否定条件，请编写if not b而不是if b=False。当然，你的方式很好，但其他程序员会发现很难阅读。

保留或删除编辑框的内容

1 个答案: