Показать сообщение отдельно
  #1  
Старый 14.12.2015, 12:51
Аватар для Uniq!
Uniq! Uniq! вне форума
Местный
 
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
По умолчанию IXMLNode Unknown Variant

Проблема со считыванием значений средствами TXMLDocument. Разбираю структуру вот такого рода:
Код:
<Reading>
<Date>2015-12-11</Date>
<Value>734.3</Value>
<Status>2</Status>
</Reading>
Вот таким кодом:

Код:
function TFormMain.GetDevReading(iDev: IXMLNode): Variant;
var
  iReadings, iRead: IXMLNode;
  ReadNr: integer;
  vValue, vStatus: Variant;
  Readings: TADODataSet;
begin
  iReadings := iDev.ChildNodes.FindNode('Readings');

  for ReadNr := iReadings.ChildNodes.Count - 1 downto 0 do
  begin
    iRead := iReadings.ChildNodes[ReadNr];

    vValue := iRead.ChildValues['Value'];
    vStatus := iRead.ChildNodes['Status'];

Все значения из этого Nod'a кроме vStatus считываются адекватно.
vStatus почему-то отображается как Unknown. Естественно, открывал файл в блокноте. Там никаких спец символов/заголовков нет.

Скрин из дебагера:
ErrorUnknown.png

В чём может быть проблема?
Ответить с цитированием