Question

我创建的简单项目包含3个TEdit，1个TButton和3个字符串和布尔变量。如何创建过程或函数来设置Button.Enable：=当TEdit中的每个值都发生变化时为True。需要通过创建过程或函数来减少编码，而不是代码下面。

type
TForm1 = class(TForm)
  Edit1: TEdit;
  Edit2: TEdit;
  Edit3: TEdit;
  btnSave: TButton;
  procedure FormCreate(Sender: TObject);
  procedure Edit1Exit(Sender: TObject);
private
  { Private declarations }
public
  strWelcome, strTo, strThailand: String;
  modify1, modify2, modify3 : Boolean;
  { Public declarations }
end;

表单的Oncreate i将3个字符串值委托给3个TEdit.Text并将modify变量设置为False

procedure TForm1.FormCreate(Sender: TObject);
 begin
   strWelcome := 'Welcome';
   strTo      := 'To';
   strThailand:= 'Thailand';

   modify1 := false;
   modify2 := false;
   modify3 := false;

   Edit1.text := strWelcome;
   Edit2.text := strTo;
   Edit3.text := strThailand;
end;

3个TEdit的Onexit分配给Edit1Exit（发件人：TObject）;检查文本值是否仍然等于初始值？如果某些TEdit.Text发生了变化，btnSave将被启用。

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Edit1.Text = strWelcome then
    modify1 := False
  else
    modify1 := True;
  if Edit2.Text = strTo then
    modify2 := False
  else
    modify2 := True;
  if Edit3.Text = strThailand then
    modify3 := False
  else
    modify3 := True;
  btnSave.Enabled := modify1 or modify2 or modify3;
end;

创建过程或函数以减少上述代码的任何想法。：）

Answer 1

您可以使用数组来使这更简洁，但只有三个项目可能不值得。如果这真的是所有正在考虑的代码，我就这样写：

procedure TForm1.Edit1Exit(Sender: TObject);
begin    
  btnSave.Enabled :=
    (Edit1.Text <> strWelcome) or
    (Edit2.Text <> strTo) or
    (Edit3.Text <> strThailand);
end;

您应该删除三个布尔字段。它们不再使用，在任何情况下都应该是本地人或暴露为具有getter函数的属性。你应该将strXXX变量转换为常量，因为我认为它们不会改变。

我还建议为您的编辑控件提供信息性名称。

如何简要检查几个编辑框中的任何一个是否已从其原始值更改？

1 个答案: