1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| void __fastcall TMainForm::Button1Click(TObject *Sender)
{
xmlDoc->ChildNodes->Clear();
xmlDoc->Version = "1.0";
xmlDoc->Encoding = "ISO-8859-1";
_di_IXMLNode xmlRootNode = xmlDoc->AddChild("MainForm");
xmlRootNode->AddChild("Height")->Text = IntToStr(MainForm->Height);
xmlRootNode->AddChild("Width")->Text = IntToStr(MainForm->Width);
xmlRootNode->AddChild("Top")->Text = IntToStr(MainForm->Top);
xmlRootNode->AddChild("Left")->Text = IntToStr(MainForm->Left);
_di_IXMLNode xmlPanelNode = xmlRootNode->AddChild("Panel1");
xmlPanelNode->AddChild("Caption")->Text = Panel1->Caption;
xmlPanelNode->AddChild("Color")->Text = ColorToString(Panel1->Color);
xmlPanelNode->AddChild("Boolean")->Text = BoolToStr(CheckBox1->Checked);
xmlPanelNode->AddChild("Strings")->Text = Memo1->Lines->CommaText;
ShowMessage(xmlDoc->XML->Text + " AND L = " +IntToStr(xmlDoc->XML->Text.Length()));
} |
