Класс TXMLReport |
Этот класс предназначен для формирования XML-документов. Данный способ не претендует на какие-либо особые возможности и нацелен, в основном, на удобство написания кода. Обеспечивается формирование стандартной сигнатуры и кодировка UTF-8.
Компонент разрабатывался для Delphi 5, но работает так же и в Delphi 6, и должен работать в Delphi 7. В более поздних версиях Delphi и его клонов не тестировался.
Подробное описание
Свойства и методы времени исполнения класса TXMLReport, доступные из программы.
Имя свойства / Объявление метода | Тип | Только чтение | Начальное значение свойства | Описание |
Strings | TStringList | R/W | Сформированный текст | |
procedure Tag( const s: String ); overload; | Формирует тэг без значения. | |||
procedure Tag( const s: String; const v: String ); overload; | Формирует тэг со значением. | |||
procedure Tag( const s: String; AddTabulates: Integer ); overload; | Формирует тэг, перед тэгом оформляется указанное число символов табуляции. | |||
procedure Fin( const FinMark: String = '' ); | Завершает тэг. Если FinMark указан, то выполняется проверка на соответствие открывающему тэгу. | |||
procedure SaveToStream( Stream: TStream ); | Сохраняет сформированный XML-документ в поток. | |||
procedure SaveToFile( const Filename: String ); | Сохраняет сформированный XML-документ в файл. | |||
RemoveSpacesInTags | Boolean | R/W | FALSE | Если это свойство установлено в TRUE, то все пробелы в тэгах замещаются символом подчеркивания '_'. |
UTF8 | Boolean | R/W | FALSE | Если свойство установлено, то документ сохраняется в кодировке UTF-8. Кроме того, в этом случае в качестве первой строки добавляется тэг с сигнатурой XML-документа. |
var XML: TXMLReport; ........... XML := TXMLReport.Create; XML.UTF8 := TRUE; XML.Tag( 'Группа_параметров', 1 ); XML.Tag( 'Параметр1', '001' ); XML.Fin( 'Группа_параметров' ); XML.SaveToFile( 'test.xml' ); XML.Free;
(C) by Vladimir Kladov, 2000-2010