NativeXml 4.01 支持 XE 2 ~ XE 6 版本的问题

NativeXml 4.01源码支持Delphi 5 ~ XE,对于Delphi XE 以上的版本,只需要对simdesign.inc稍作修改即可,在文件结尾加上:

// Delphi XE2 / 16
{$ifdef VER230}
  {$define D7UP}
  {$define D10UP}
  {$define D15UP}
{$endif}


// Delphi XE3 / 17
{$ifdef VER240}
  {$define D7UP}
  {$define D10UP}
  {$define D15UP}
{$endif}


// Delphi XE4 / 18
{$ifdef VER250}
  {$define D7UP}
  {$define D10UP}
  {$define D15UP}
{$endif}


// Delphi XE5 / 19
{$ifdef VER260}
  {$define D7UP}
  {$define D10UP}
  {$define D15UP}
{$endif}

// Delphi XE6 / 20
{$ifdef VER270}
  {$define D7UP}
  {$define D10UP}
  {$define D15UP}
{$endif}

 

© 版权声明
THE END
喜欢就支持一下吧
点赞0 分享