XML

← →
Dennis I. Komarov © (2010-09-01 11:01) [0]

Не то, что бы вопрос...
Была ветка в которой очередные дебаты по поводу работы с xml форматом. Если память не изменяет, у Медвежонка П. был код аля "оболочка над IXMLDOMDocument". Вот хотел поглядеть, а ветку найти не могу :(

← →
Palladin © (2010-09-01 11:03) [1]

Медвежонок П. - это Пять! )

← →
Игорь Шевченко © (2010-09-01 11:04) [2]

а что, http://www.delphimaster.net/ не работает ?

← →
Dennis I. Komarov © (2010-09-01 11:16) [3]

> Игорь Шевченко © (01.09.10 11:04) [2]

Работает, но там чегой-то все очень старое, а ветка не так давно была...

> Palladin © (01.09.10 11:03) [1]

Это почему?

← →
Думкин © (2010-09-01 11:21) [4]

> Это почему?

политическое. Явный намек.

← →
Медвежонок Пятачок © (2010-09-01 11:39) [5]

"обертка" представляет собой малюсенький юнит

//базовая функция чтения
function BearPigglet_GetXPathValue(iNode : IXMLDOMNode; const AXPath : string) : OleVariant;
var vNode : IXMLDOMNode;
begin
Result := Unassigned;
vNode := iNode.selectSingleNode(AXPath);
if vNode <> nil then
case vNode.nodeType of
NODE_ATTRIBUTE : Result := vNode.nodeValue;
else Result := vNode.text;
end;
end;

производные от нее типизированные функции:
function BearPigglet_GetXPathValueStr(iNode : IXMLDOMNode; const AXPath : string) : string;
begin
Result := VarToStr(BearPigglet_GetXPathValue(iNode,AXPath));
end;

function BearPigglet_GetXPathValueDbl(iNode : IXMLDOMNode; const AXPath : string) : Double;
begin
Result := TryToDouble(BearPigglet_GetXPathValueStr(iNode,AXPath));
end;

где TryToDouble - вспомогательный код, который удаляет из строки все что помешает сделать StrToFloat , определяющая, какой из разделителей в строке является разделителем разрядов и меняющая его на децимал сепаратор

по такому же принципу были функции для даты-времени.
ну и похожие методы на запись данных в узлы/атрибуты по xpath пути

← →
Palladin © (2010-09-01 11:52) [6]

> политическое. Явный намек.

не угадал, но тоже не плохо

← →
Поросенок Винни-Пух © (2010-09-01 11:59) [7]

кто тут крошит батон на медвежонка?

> но там чегой-то все очень старое, а ветка не так давно была

обновлю скоро, с этим огромным файлом на 3.5Mb только бы пронесло по времени :)

> BearPigglet_GetXPathValue

;-)))

XML Найти похожие ветки