pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Mark helper routines as INLINE if supported.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@463 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2008-06-06 14:47:04 +00:00
parent 675a16b787
commit 4bf1ccf6cc
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
wst/trunk/wst_delphi_xml.pas
View File

@ -18,21 +18,21 @@ type
function FindNode(ANode : TDOMNode; const ANodeName : string):TDOMNode; function FindNode(ANode : TDOMNode; const ANodeName : string):TDOMNode;
function GetNodeItemsCount(const ANode : TDOMNode): Integer; function GetNodeItemsCount(const ANode : TDOMNode): Integer;
function GetNodeListCount(ANodeList : TDOMNodeList) : Integer ;overload; function GetNodeListCount(ANodeList : TDOMNodeList) : Integer ;overload;{$IFDEF USE_INLINE}inline;{$ENDIF}
function GetNodeListCount(ANodeList : TDOMNamedNodeMap) : Integer ;overload; function GetNodeListCount(ANodeList : TDOMNamedNodeMap) : Integer ;overload;{$IFDEF USE_INLINE}inline;{$ENDIF}
procedure ReleaseDomNode(ADomNode : IInterface);overload; procedure ReleaseDomNode(ADomNode : IInterface);overload;{$IFDEF USE_INLINE}inline;{$ENDIF}
procedure ReleaseDomNode(var ADomNode : TXMLDocument);overload; procedure ReleaseDomNode(var ADomNode : TXMLDocument);overload;{$IFDEF USE_INLINE}inline;{$ENDIF}
function CreateDoc() : TXMLDocument ; function CreateDoc() : TXMLDocument ;
procedure WriteXML(Element: TDOMNode; const AFileName: String);overload; procedure WriteXML(Element: TDOMNode; const AFileName: String);overload;{$IFDEF USE_INLINE}inline;{$ENDIF}
procedure WriteXML(Element: TDOMNode; AStream: TStream); overload; procedure WriteXML(Element: TDOMNode; AStream: TStream); overload;{$IFDEF USE_INLINE}inline;{$ENDIF}
procedure WriteXMLFile(doc: TXMLDocument; const AFileName: String); overload; procedure WriteXMLFile(doc: TXMLDocument; const AFileName: String); overload;
procedure WriteXMLFile(ADoc : TXMLDocument; AStream : TStream);overload; procedure WriteXMLFile(ADoc : TXMLDocument; AStream : TStream);overload;{$IFDEF USE_INLINE}inline;{$ENDIF}
procedure ReadXMLFile(out ADoc : TXMLDocument; AStream : TStream);overload; procedure ReadXMLFile(out ADoc : TXMLDocument; AStream : TStream);overload;{$IFDEF USE_INLINE}inline;{$ENDIF}
procedure ReadXMLFile(out ADoc: TXMLDocument; const AFilename: String);overload; procedure ReadXMLFile(out ADoc: TXMLDocument; const AFilename: String);overload;
function NodeToBuffer(ANode : TDOMNode):string ; function NodeToBuffer(ANode : TDOMNode):string ;
function FilterList(const ALIst : IDOMNodeList; const ANodeName : widestring):IDOMNodeList ; function FilterList(const ALIst : IDOMNodeList; const ANodeName : widestring):IDOMNodeList ;{$IFDEF USE_INLINE}inline;{$ENDIF}
implementation implementation
uses XmlDoc; uses XmlDoc;