@H_502_1@我突然注意到我们的代码库中有一个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]);