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

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

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.09.2009, 10:00   #11
Скандербег
Форумчанин
 
Регистрация: 04.04.2009
Сообщений: 438
По умолчанию

Мемо дан для примера. Если для задачи Мемо устраивает, то можно и оставить, а для того чтобы не париться со значениями, выцарапывая их из Мемо, при разборке текста значения можно загонять в отдельный список и уже с этим списком работать.
Код:
procedure TForm1.Button2Click(Sender: TObject);
var
  XML: TECXMLParser; //здесь объявлем класс
  SL : TStringList;

  procedure DrawXMLItem(XMLItem: TXMLItem);
  var
    I : Integer;
  begin
    Memo1.Lines.Add(XMLItem.Name+' : '+XMLItem.Text);
    SL.Add(XMLItem.Text);
    for i := 0 to XMLItem.SubItemCount-1 do
      DrawXMLItem(XMLItem.SubItems[i]);
  end;

begin
  XML := TECXMLParser.Create(Self);экземпляр класса

  XML.LoadFromFile('E:\file.xml'); 
  SL := TStringList.Create;
  try
    Memo1.Lines.BeginUpdate;
    DrawXMLItem(XML.Root);
    Memo1.Lines.EndUpdate;
  finally
    SL.Free;
    XML.Free;
  end;
end;
В SL будет столько же элементов (строк) сколько и в Мемо.
Для преобразования строкового представления числа, которое находится в SL в само число, с которым можно будет производить арифметические действия, лучше применять функцию TryStrToInt. См. справку. Чтобы посмотреть справку по конкретной функции (процедуре) ее имя надо написАть в тексте модуля (или вставить в текст из буфера обмена) и нажать F1.
Скандербег вне форума Ответить с цитированием
Старый 12.09.2009, 12:45   #12
GenniY
Форумчанин
 
Регистрация: 09.09.2009
Сообщений: 181
По умолчанию Совет на будущее

При работе с xml используй самый надежный парсер - NativeXML.
Получил помощь — отблагодарил.
GenniY вне форума Ответить с цитированием
Старый 15.09.2009, 13:45   #13
S_Yevgeniy
Форумчанин
 
Аватар для S_Yevgeniy
 
Регистрация: 08.07.2009
Сообщений: 246
По умолчанию

Цитата:
Сообщение от GenniY Посмотреть сообщение
При работе с xml используй самый надежный парсер - NativeXML.
А где его можно раздобыть для Delphi 2009
Да прибудет с Вами свет и радость!!!
S_Yevgeniy вне форума Ответить с цитированием
Старый 15.09.2009, 16:31   #14
Kotofff
Участник клуба
 
Аватар для Kotofff
 
Регистрация: 11.01.2009
Сообщений: 1,917
По умолчанию

Насколько я посмотрел на NativeXML - он не устанавливается , а просто подключается модуль NativeXml.pas и все.
Посмотри личные сообщения и попробуй.
"Заряженному танку в дуло не смотрят" @Dekmer in WoT
Kotofff вне форума Ответить с цитированием
Старый 15.09.2009, 17:09   #15
GenniY
Форумчанин
 
Регистрация: 09.09.2009
Сообщений: 181
По умолчанию

Цитата:
просто подключается модуль NativeXml.pas
Всё правильно.
Легче всего бросить файл с программой и привязать в коде.

Вместе с NativeXml.pas идёт файл-справка по работе с этим компонентом.
Получил помощь — отблагодарил.
GenniY вне форума Ответить с цитированием
Старый 16.09.2009, 05:14   #16
S_Yevgeniy
Форумчанин
 
Аватар для S_Yevgeniy
 
Регистрация: 08.07.2009
Сообщений: 246
По умолчанию

Цитата:
Сообщение от GenniY Посмотреть сообщение
Всё правильно.
Легче всего бросить файл с программой и привязать в коде.

Вместе с NativeXml.pas идёт файл-справка по работе с этим компонентом.
Да идет и примеры есть только что-то запустить большой вопрос. Там нужно скачать еще ряд компонентов. FastMM – Kotofff уже подсказал где взять (Огромное ему спасибо), а вот VertualTree пока не ясно что делать. Я нашел VertualTreeView4.8.6 но похоже это не то. Может вы подскажет.
Да прибудет с Вами свет и радость!!!
S_Yevgeniy вне форума Ответить с цитированием
Старый 16.09.2009, 10:21   #17
GenniY
Форумчанин
 
Регистрация: 09.09.2009
Сообщений: 181
Счастье

Ребята, какие дополнительные компоненты!!!

Инструкция по установке NativeXML:
Installation
============

Simply run the installer. It will copy the files to your harddisk in a location
you specify. No actual programs are installed or registered.

You can uninstall all files by clicking UNINS000.EXE in the root or through
Start > Control panel > Add/Remove software > NativeXml [Remove]

If you want to use NativeXml in your project, follow these two simple steps:

1) Copy the NativeXml.dcu file from the Delphi directory into
your project folder.

2) Include the clause "uses NativeXml" in your unit

If you want to use NativeXml in all your projects, you can also add the
\Source folder to your library path.

Я уверен, что англ. знают все.
Получил помощь — отблагодарил.
GenniY вне форума Ответить с цитированием
Старый 16.09.2009, 10:33   #18
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

он же вроде коммерческий ?
чем не устраивает JclSimpleXml ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 16.09.2009, 10:46   #19
GenniY
Форумчанин
 
Регистрация: 09.09.2009
Сообщений: 181
По умолчанию

Очень удобен в использовании. Легко читабельный и не большой код.
А самым главным достоинством — Он надёжно и без ошибочно работает с большими XML-документами. Что не мало важно.
Конечно можно использовать любой парс. Но Native использую, в первую очередь, за выше описанную надёжность. Сам долго уже работаю с приёмом и отправкой огромных XML-документов, точность и обрабатываемость, которых вовремя очень важна.
Получил помощь — отблагодарил.
GenniY вне форума Ответить с цитированием
Старый 17.09.2009, 13:57   #20
S_Yevgeniy
Форумчанин
 
Аватар для S_Yevgeniy
 
Регистрация: 08.07.2009
Сообщений: 246
Печаль

Вот только в Delphi 2009 не работает.
Да прибудет с Вами свет и радость!!!
S_Yevgeniy вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
XML (Delphi) VadEr Помощь студентам 11 23.06.2009 23:32
xml в delphi /Arven/ Компоненты Delphi 0 23.04.2008 22:47
SQl+DELPHI+XML Рома БД в Delphi 5 17.08.2007 04:21
Xml и Delphi KlErik Общие вопросы Delphi 2 14.05.2007 09:54