Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.03.2010, 21:11   #1
dyonysos
Пользователь
 
Регистрация: 24.08.2009
Сообщений: 45
Вопрос сохранение содержания ListView в XML (delphi)

сохранение настроек программы и содержания ListView:
Код:
procedure TMainForm.Save2XML;
var
 node,snode:ixmlnode;
 i:integer;
begin
 xmldocument1.FileName:='';
 xmldocument1.Active:=true;
 node:=xmldocument1.AddChild('MyApp');
 if MainForm.WindowState=wsMaximized then node.Attributes['Maximized']:=true else
 begin
 node.Attributes['Maximized']:=false;
 node.Attributes['Top']:=mainform.Top;
 node.Attributes['Left']:=mainform.Left;
 node.Attributes['Width']:=mainform.Width;
 node.Attributes['Height']:=mainform.Height;
 end;
 for i:=0 to serverlistview.Items.Count-1 do begin
   snode:=node.AddChild('Server');
   snode.Attributes['Name']:=serverlistview.Items[i].Caption;
   snode.Attributes['IP']:=serverlistview.Items[i].SubItems[0];
   snode.Attributes['Port']:=serverlistview.Items[i].SubItems[1];
   snode.NextSibling;
 end;
 xmldocument1.SaveToFile('Options.xml');
end;
вышло вот так:
Код:
<MyApp Maximized="false" Top="402" Left="532" Width="750" Height="466">
  <Server Name="server1" IP="192.168.1.6" Port="15007"/>
  <Server Name="serv2" IP="192.168.1.4" Port="15007"/>
</MyApp>
потом попробовал сначала прочитать настройки формы:
Код:
procedure TMainForm.LoadFromXML;
var
 node:ixmlnode;
begin
 if fileexists('Options.xml') then begin
   xmldocument1.FileName:='Options.xml';
   xmldocument1.Active:=true;
   node:=xmldocument1.DocumentElement;
     if node.Attributes['Maximixed']='true' then
      mainform.WindowState:=wsMaximized else
      begin
      mainform.Top:=strtoint(node.Attributes['Top']);
      mainform.Left:=strtoint(node.Attributes['Left']);
      mainform.Width:=strtoint(node.Attributes['Width']);
      mainform.Height:=strtoint(node.Attributes['Height']);
      end;
 end;
 xmldocument1.Active:=false;
end;
но как я не пробовал всеравно значения читать не хочет,а если Maximized="true" то и ошибка вылетает.
в чем проблема?
dyonysos вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Неправельное сохранение файла xml -=Virus=- Работа с сетью в Delphi 1 03.03.2010 21:14
сохранение содержания ListView в фаил( дэлфи ) dyonysos Общие вопросы Delphi 0 12.02.2010 22:25
XML (Delphi) VadEr Помощь студентам 11 23.06.2009 23:32
Сохранение ListView в файл Scorpeon Общие вопросы Delphi 6 12.06.2007 15:51
Xml и Delphi KlErik Общие вопросы Delphi 2 14.05.2007 09:54