# Unit simplexmlparser

Description
Uses
Classes, Interfaces, Objects and Records
Functions and Procedures
Types
Constants
Variables

## Description

This file contains something similar to an XML parser.

Use procedure parseXML to parse an XML file. It actually calls the HTML parser, not an XML parser, but it works reasonable well

*

## Overview

### Classes, Interfaces, Objects and Records

Name | Description
--- | ---
Record `TProperty` |

### Functions and Procedures

`procedure parseXML(xml:string; enterTag:TEnterTagEvent; leaveTag: TLeaveTagEvent; textRead: TTextEvent; outputEncoding: TSystemCodePage);`
`function getProperty(propertyName: string; properties:TProperties; const def: string = ''):string;`
`procedure addProperty(propertyName,value: string;var properties:TProperties);`
`procedure setProperty(propertyName,value: string;var properties:TProperties);`

### Types

`TProperties=array of TProperty;`
`TEnterTagEvent = function (tagName: string; properties: TProperties):TParsingResult of object;`
`TLeaveTagEvent = function (tagName: string):TParsingResult of object;`
`TTextEvent = function (text: string):TParsingResult of object;`

## Description

### Functions and Procedures

`procedure parseXML(xml:string; enterTag:TEnterTagEvent; leaveTag: TLeaveTagEvent; textRead: TTextEvent; outputEncoding: TSystemCodePage);`
Perhaps this parses xml data, perhaps it doesn't. Who knows... ###### Parameters xml The xml data enterTag Event to be called when a tag is entered leaveTag Event to be called when a tag is leaved textRead Event to be called when text between tags is read outputEncoding Encoding to be used in the parameters passed to the event

`function getProperty(propertyName: string; properties:TProperties; const def: string = ''):string;`

`procedure addProperty(propertyName,value: string;var properties:TProperties);`

`procedure setProperty(propertyName,value: string;var properties:TProperties);`

### Types

`TProperties=array of TProperty;`

`TEnterTagEvent = function (tagName: string; properties: TProperties):TParsingResult of object;`

`TLeaveTagEvent = function (tagName: string):TParsingResult of object;`

`TTextEvent = function (text: string):TParsingResult of object;`

## Author

- Benito van der Zander (www.benibela.de)

Generated by PasDoc 0.16.0.