在Delphi7中,Word_TBL编译报错:
---------------------------------------------------------------
9: if Assigned(FOnXMLBeforeDelete) then
FOnXMLBeforeDelete(Self,
IUnknown(TVarData(Params[0]).VPointer) as Range {const Range},
IUnknown(TVarData(Params[1]).VPointer) as XMLNode {const XMLNode},
Params[2] {WordBool});
---------------------------------------------------------------
因为变量Range名称冲突,无法正常编译。把Range修改为Word_TLB.Range,即可。
修改后的代码如下:
---------------------------------------------------------------
9: if Assigned(FOnXMLBeforeDelete) then
FOnXMLBeforeDelete(Self,
IUnknown(TVarData(Params[0]).VPointer) as Word_TLB.Range {const Range},
IUnknown(TVarData(Params[1]).VPointer) as XMLNode {const XMLNode},
Params[2] {WordBool});
---------------------------------------------------------------
By JRQ
2016.06.06