我经常把所有我的TClientDataSets和TFields在TDataModules。所以在我的形式我有这样的代码

procedure TMyForm.AddButtonClick(Sender: TObject);
begin  
  with LongNameDataModule do
  begin
     LongNaMetable1.Insert;
     LongNaMetable1_Field1.Value := "some value";
     LongNaMetable1_Field2.Value := LongNaMetable2_LongNameField1.Value;
     LongNaMetable1_Field3.Value := LongNaMetable3_LongNameField1.Value;
     LongNaMetable1_Field4.Value := LongNaMetable4_LongNameField1.Value;
     LongNaMetable1.Post;
  end
end;

没有with关键字我不得不写这样的代码

procedure TMyForm.AddButtonClick(Sender: TObject);
    begin            
      LongNameDataModule.LongNaMetable1.Insert;
      LongNameDataModule.LongNaMetable1_LongNameField1.Value := "some value";

      LongNameDataModule.LongNaMetable1_LongNameField2.Value :=
               LongNameDataModule.LongNaMetable2_LongNameField1.Value;

      LongNameDataModule.LongNaMetable1_LongNameField3.Value :=
               LongNameDataModule.LongNaMetable3_LongNameField1.Value;

      LongNameDataModule.LongNaMetable1_LongNameField4.Value :=
               LongNameDataModule.LongNaMetable4_LongNameField1.Value;

      LongNameDataModule.LongNaMetable1.Post;
    end;

我认为使用with关键字更容易阅读。

我应该避免使用with关键字？

解决方法

with TFoo.Create
try
  Bar := Baz;
  DoSomething();
finally
  Free;
end;

• 上一篇：桌面Delphi应用程序是否可以通过Wi下一篇：delphi2010 进程不显示在任务栏的总