Z
zhaojianzhu
Unregistered / Unconfirmed
GUEST, unregistred user!
// --- Delphi/Kylix Version Numbers
// As this is no code, this does not blow up your object or executable code at all
(*$DEFINE D1_OR_NEWER *)
(*$IFNDEF VER80 *)
(*$DEFINE D2_OR_NEWER *)
(*$IFNDEF VER90 *)
(*$DEFINE D3_OR_NEWER *)
(*$IFNDEF VER100 *)
(*$DEFINE D4_OR_NEWER *)
(*$IFNDEF VER120 *)
(*$DEFINE D5_OR_NEWER *)
(*$IFNDEF VER130 *)
(*$IFDEF LINUX *)
(*$DEFINE K1_OR_NEWER *)
(*$ENDIF *)
(*$IFNDEF VER140 *)
(*$IFNDEF VER150 *)
if the compiler gets stuck here,
you are using a compiler version unknown to this code.
You will probably have to change this code accordingly.
At first, try to comment out these lines and see what will happen.
(*$ENDIF *)
(*$ENDIF *)
(*$ENDIF *)
(*$ENDIF *)
(*$ENDIF *)
(*$ENDIF *)
(*$ELSE *)
(*$DEFINE WIN16 *)
(*$ENDIF *)
unit LibXmlParser;
interface
uses
SysUtils, Classes,
(*$IFDEF D5_OR_NEWER *)// The Contnrs Unit was introduced in Delphi 5
Contnrs,
(*$ENDIF*)
Unicode,
Math;
const
CVersion = '1.0.14'
// This variable will be updated for every release
// (I hope, I won't forget to do it everytime ...)
type
TPartType = // --- Document Part Types
(ptNone, // Nothing
ptXmlProlog, // XML Prolog XmlSpec 2.8 / 4.3.1
......
那位高人指教一下不胜谢意
// As this is no code, this does not blow up your object or executable code at all
(*$DEFINE D1_OR_NEWER *)
(*$IFNDEF VER80 *)
(*$DEFINE D2_OR_NEWER *)
(*$IFNDEF VER90 *)
(*$DEFINE D3_OR_NEWER *)
(*$IFNDEF VER100 *)
(*$DEFINE D4_OR_NEWER *)
(*$IFNDEF VER120 *)
(*$DEFINE D5_OR_NEWER *)
(*$IFNDEF VER130 *)
(*$IFDEF LINUX *)
(*$DEFINE K1_OR_NEWER *)
(*$ENDIF *)
(*$IFNDEF VER140 *)
(*$IFNDEF VER150 *)
if the compiler gets stuck here,
you are using a compiler version unknown to this code.
You will probably have to change this code accordingly.
At first, try to comment out these lines and see what will happen.
(*$ENDIF *)
(*$ENDIF *)
(*$ENDIF *)
(*$ENDIF *)
(*$ENDIF *)
(*$ENDIF *)
(*$ELSE *)
(*$DEFINE WIN16 *)
(*$ENDIF *)
unit LibXmlParser;
interface
uses
SysUtils, Classes,
(*$IFDEF D5_OR_NEWER *)// The Contnrs Unit was introduced in Delphi 5
Contnrs,
(*$ENDIF*)
Unicode,
Math;
const
CVersion = '1.0.14'
// This variable will be updated for every release
// (I hope, I won't forget to do it everytime ...)
type
TPartType = // --- Document Part Types
(ptNone, // Nothing
ptXmlProlog, // XML Prolog XmlSpec 2.8 / 4.3.1
......
那位高人指教一下不胜谢意