Хм. Че та я не разобрался с XML в ListView.
Ситуация такова:
| Код |
//процедурка добавления
procedure TForm1.Button3Click(Sender: TObject);
begin
with listView1.Items.Add do
begin
Caption:=Form1.Edit1.Text;
SubItems.Add(Form1.Edit2.Text);
end;
|
| Код |
//процедурка сохранения
procedure TForm1.Button4Click(Sender: TObject);
var
xml: IXMLDocument;
root: IXMLNode;
begin
xml := NewXMLDocument;
root := xml.addchild('data') ;
root.childvalues['name'] := Form1.Edit1.Text;
root.childvalues['IP'] := Form1.Edit2.Text;
xml.SaveToFile(GetCurrentDir+'test.xml');
end;
|
| Код |
//процедурка загрузки
procedure TForm1.Button5Click(Sender: TObject);
var
xml: IXMLDocument;
name: string;
ip:string;
bd: TDateTime;
root: IXMLNode;
begin
xml := LoadXMLDocument(GetCurrentDir+'test.xml');
Root := xml.DocumentElement;
name := root.childvalues['name'];
ip := root.childvalues['IP'];
with listView1.Items.Add do
begin
Caption:=name;
SubItems.Add(ip);
end;
|
Мне кажеться я не правильно сохраняю, т.к. сохраняеться только 1 объект. Как сделать чтобы сохранялись все которые есть в ListView. Ну не понимаю я. |