Класс 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