Indexator

← →
SkyP (2004-07-20 10:28) [0]

Как в Дельфе можно реализовать
такую структуру:

str:=SomeObject.Values["Alex"].Values["Fox"];
str2:=SomeObject.Values["Alex"];

... и т.д.
знаюч что можно через THashedStringList организовать
но проблема с построением 2,3 -его и т.д уровня
просто непонимаю
так как возвращаться всегда должно строку в свойстве

подскажите, ясно что нужно писать класс

← →
Digitman © (2004-07-20 10:34) [1]

> ясно что нужно писать класс

зачем его писать-то ?
бери на вооружение любой XML-движок, например, XMLDOMDocument - он все это реализует

← →
SkyP (2004-07-20 10:37) [2]

гм ...
кстати, суть и сводилась что б читать все из XML :)

спасибо за идею !!!

подумаю что получиться из этого

← →
Digitman © (2004-07-20 10:47) [3]

> SkyP

можешь еще "пощупать" TJvSimpleXML из состава JEDI-пакета, он - с исх.текстами и , imho, поудобней с т.з. интуитивно понятного интерфейса

пример использования сервера XMLDOMDocument

пример оперирует источником данных в XML-формате для получения значений узлов, дочерних по отн-ю к узлу APPLICATION_DATA\FAHRZEUG в нижеслед. струтуре

<?xml version="1.0"?>
<APPLICATION_DATA>
<HEADER/>
<AUFTRAG>
<AUFTRAGSNUMMER/>
<KUNDENNUMMER/>
<KUNDENKURZNAME/>
<KUNDENDIENSTBERATER/>
</AUFTRAG>
<FAHRZEUG>
<FAHRZEUGIDENTNR/>
<MODELLJAHR/>
<MARKE/>
<FAHRZEUGKLASSE/>
<KAROSSERIE/>
<AUSSTATTUNG/>
<AGGREGAT/>
<MKB/>
<GKB/>
<AKB/>
<AMTLKENNZEICHEN/>
</FAHRZEUG>
</APPLICATION_DATA>

function TElsaWin.Get_VehicleIdentification: TVehicleInfo;
var
XMLDOMDocument: IXMLDOMDocument2;
VehicleIdNode: IXMLDOMNode;
begin
try
XMLDOMDocument := CoDomDocument.Create;
try
Connected := True;
with XMLDOMDocument do
begin
LoadXML(FElsaWinApp.Data);
VehicleIdNode := SelectSingleNode("APPLICATION_DATA").SelectSingleNode("FAHRZEUG");
with VehicleIdNode, Result do
try
ModelYear := SelectSingleNode("MODELLJAHR").Text;
SalesModel := SelectSingleNode("MARKE").Text;
ClassId := SelectSingleNode("FAHRZEUGKLASSE").Text;
CarosSerieId := SelectSingleNode("KAROSSERIE").Text ;
ASNo := SelectSingleNode("AUSSTATTUNG").Text;
PowerUnitId := SelectSingleNode("AGGREGAT").Text;
EngineId := SelectSingleNode("MKB").Text;
GearId := SelectSingleNode("GKB").Text;
finally
VehicleIdNode := nil;
end;
end;
finally
XMLDOMDocument := nil;
end;
except
raise EElsaWinError.Create(4);
end;
end;

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