Delphi TDataModule子代'；创建'；没有。创建但没有问题？

我突然注意到我们的代码库中有一个

TDataModuleTestExchange（nil）

“构造函数调用”：

procedure TDialoogConfigExchange.ButtonTestClick(Sender: TObject);
var
   lDataModuleTestExchange: TDataModuleTestExchange;
   lResult                : Boolean;
begin
   inherited;
   [snip]
   begin
      lDataModuleTestExchange := TDataModuleTestExchange(nil);  // *** HERE ***
      try
         lResult := lDataModuleTestExchange.GetCalendarFolder(EditHost.Text,EditGebruiker.Text,EditWachtwoord.Text);
         if lResult then
            ToonMelding(sExchangeTestGelukt, mtInformation, [mbOk])
         else
            ToonMelding(Meldingen.Text, mtError, [mbOK]);
      finally
         lDataModuleTestExchange.Free;
      end;
   end;
end;

因此，与其使用

TDataModuleTestExchange.*Create**（nil）

，不如使用这种方法

unit dmTestExchange;

interface

uses
  System.SysUtils, System.Classes,
  Xml.XMLDoc, Xml.XMLIntf, Xml.XMLDOM,
  TimeTellDM;

type
  TDataModuleTestExchange = class(TTimeTellDataModule)  // TDataModule descendant
  private
  public
    function GetCalendarFolder(const AExchangeServerURL,AExchangeLoginName,AExchangePass: String): Boolean;
  end;

---

没有编译器错误，没有运行时问题。为什么呢？

首先，值得指出的是，演员阵容是虚假的，除了混淆之外，没有其他作用。该代码相当于：

lDataModuleTestExchange := nil;

TDataModuleTestExchange.GetCalendarFolder

是一个实例方法，您在

nil

引用上调用它。如果该方法试图访问实例中的任何字段，或调用虚拟方法，或者实际上是依赖于实例的任何内容，那么这将导致运行时错误。因此，

TDataModuleTestExchange.GetCalendarFolder

的实现似乎不依赖于实例。虽然在这里您似乎没有受到影响，但编写这样的代码显然是非常糟糕的

应该重新编写类以声明静态类方法，如下所示：

type
  TDataModuleTestExchange = class(TTimeTellDataModule)  
  public
    class function GetCalendarFolder(const AExchangeServerURL,  
      AExchangeLoginName, AExchangePass: string): Boolean; static;
  end;

然后这样叫：

lResult := TDataModuleTestExchange.GetCalendarFolder(EditHost.Text,
  EditGebruiker.Text, EditWachtwoord.Text);
if lResult then
  ToonMelding(sExchangeTestGelukt, mtInformation, [mbOk])
else
  ToonMelding(Meldingen.Text, mtError, [mbOK]);

---

t按钮（无）。拖动也很安全；）@所以，当没有控件被拖动时，
t按钮（nil）。拖动
为
True
！谢谢，这是一个简单的打字错误。它不是一个类方法，我已经添加了.Create。实际上，函数GetCalendarFolder不访问私有变量，也不调用虚拟方法：正如我的代码所示，TDataModuleTestExchange没有，TTimeTellDataModule=class（TDataModule）；-）那不是真的
TDataModuleTestExchange
源于具有数据字段和虚拟方法的
TDataModule
。您确实应该将其作为一个类方法，因为它不使用任何实例数据，所以旋转实例以不做任何事情是浪费和误导的。在我看来。