禁止delphi的variant空类型转换到其它类型抛异常

以前做项目时遇到的读取xml中的一个不存在的元素时老是抛出异常，最开始是使用try...except捕获后使用默认值赋值，但如果元素多的话这样就很烦了，当初的解决方式是采用下面的方式，改变Variants单元中的全局变量NullStrictConvert。

 

var tempNullStrictConvert:Boolean; begin tempNullStrictConvert := Variants.NullStrictConvert; Variants.NullStrictConvert := False; //使空的Variants可以不抛出异常的转换 ///***do something finally Variants.NullStrictConvert := tempNullStrictConvert; end; end;