delphi – TDataModule后代’创建’没有.Create但没有问题？

发布时间：2020-12-15 04:20:26 所属栏目：大数据来源：网络整理

导读：我突然注意到我们的代码库中有一个TDataModuleTestExchange(nil)’构造函数调用’： procedure TDialoogConfigExchange.ButtonTestClick(Sender: TObject);var lDataModuleTestExchange: TDataModuleTestExchange; lResult : Boolean;begin inherited; [snip

我突然注意到我们的代码库中有一个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.**创建**(零)这个工作正常！

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,AExchangePass: string): Boolean; static;
  end;

然后像这样调用：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!