Компонент TISPROXML

Модуль Конструктор - вкладка Ресурси. Подвійне натискання на компоненті відкриває дизайнер. Створений в дизайнері XML-документ зберігається всередині компонента.

XML--функції:

Відобразити дизайнер: procedure ShowDesigner

Завантажити з файлу: procedure LoadFromFile (const FileName: string)

Зберегти в файл: procedure SaveToFile (const FileName: string)

Завантажити з рядка: procedure ReadFromString (const Text: String)

Зберегти в рядок: function WriteToString: String

Створити новий xml: procedure New

Додати вузол до зазначеного: function NodeInsertBefore (FocusedNode: TISxXMLNode): TISxXMLNode

Додати вузол після зазначеного: function NodeInsertAfter (FocusedNode: TISxXMLNode): TISxXMLNode

Додати підлеглий: function NodeInsertChild (FocusedNode: TISxXMLNode): TISxXMLNode

Властивості:

Кореневий вузол: Root

Вузол TISxXMLNode

Властивості:

НаименованиеНайменування: Name: String

ЗначениеЗначення:Value: String

Кількість підлеглих вузлів: NodeCount: Integer;

Отримати вузол за індексом: Nodes [i]: TISxXMLNode (тільки для читання)

Кількість атрибутів: AttributeCount: Integer

Отримати атрибут за індексом: Attributes [i]: TISxXMLAttribute (тільки для читання)

Значення атрибута по імені: AttributeValueByName [Name]: String

Функції:

Додати атрибут: procedure AttributeAdd (Name: String, Value: String)

Видалити атрибут за індексом: procedure AttributeDelete (Index: integer)

Додати вузол: procedure NodeAdd (Name: String, Value: String)

Видалити вузол за індексом: procedure NodeDelete (Index: integer)

Знайти вузол на ім'я: function FindNode (const NodeName: String): TISxXMLNode

Атрибут TISxXMLAttribute

НаименованиеНайменування: Name: String

ЗначениеЗЩЗначення: Value: String

Приклад використання:

procedure Button1OnClick (Sender: TISPROComponent);

var

Node: TISxXMLNode;

i: integer;

begin

XML1.Root.AttributeAdd ( 'A0', '1');

Node: = XML1.Root.NodeAdd ( 'Node1', '2');

Node.AttributeAdd ( 'A1', '2');

XML1.ShowDesigner;

for i: = 0 to XML1.Root.NodeCount-1 do

ShowMessage (XML1.Root.Nodes [i] .Name + '' + XML1.Root.Nodes [i] .Value);

end;