[Delphi] Unit z funkcjami przydatnymi przy pracy z XML'em

[Toster]

jak w temacie:

[code=Delphi]
unit XMLHelpers;
{Code by Toster funder of The Tosters,
K
B[XB][[KSFb7ĆFF2f&G3&6VGW&R6fU7G&ćw2%a519ŃQMŃ)a511MŃings(const node:IXMLNode; const str:TStrings);
function XMLRXY]X]P
NVSN[YN[ĘNŚgVć7F&VDGG&'WFU7G\"67BćFSćFSś67BćŃMŃ)Ńa51IŃŃŃ%Ą%MLNode;const name:string;const defval:integer=0):Integer;

i[Y[][YHS]T[ĘNVSN67B7G#E7G&ćw2f CFVvW#ćFSŚ&Vv(ŃźŃ
ź(
Ąld('Item');
n.SetAttributeNS('Value', NNJN[[YHSY[Ę7BćFSćFS67B7G#E7G&ćw2f CFVvW#%a519)(Ń
ą(Ńź
ĄdNodes.Count-1 do begin
n := node.ChildNodes[t];
Y
]X]N[YINJN[[[&VDGG&'WFT&67BćFSćFSś67BćS7G&ć ą)(ŃŃŃmtą9ąŃen
Result := node.Attributes[name]
else
ResulH[N[[[SXY]X]TNVćFSś67BćS7G&ćr7G&ćsŚ&VvbćFRGG&'WFW5tą9ąŃĄ(IąŃŃŃm]
else
Result := '??!';
end;

function XMLReadAttributeInt(const node:IXSN[YN[Y[[YN[YY[bćFRGG&'WFW5śćUfCfwCVĆFV&W7VBŃŃŃmt(ą(Ią)

end.

[/code]

[sazian]

yyyyy...... ładne tylko co to robi :?:

[Toster]

yyy odczytuje ze wskazanego noda wartowsc parametru o podanej nazwie. Jesli parametr nie jest ustawiony lub nie odpowiada rzadanemu typowi to zwracana jest wartosc domyslna (zazwyczaj 0 lub ciag pusty)

[JaCkObS]

Wszystko pięknie
ale żeby to działało potrzebny jest XMLDocument

[KKKas]

[quote] Wszystko pięknie
ale żeby to działało potrzebny jest XMLDocument [/quote]
A ktoś napisał, że nie jest potrzebny? Widać to zresztą po liście uses.

[Wosiedem]

Świetna robota

XMLDoc jest potrzebny. Standardowo nie ma go w darmowych wersjach Delphi. W wersji Professional znajduje się w {Delphi}/Sources/xml
Paczka w załączniku. /trzeba zmienić rozszerzenie na .rar wynika to z tego ze mam uprawnienia tylko do .txt/


Ps.
Sam też kiedyś nie miałem tych unitów, co nie Toster?

[attachment=1:attachment]

[Toster]

do nicxzego sie nie przyznam poza tym zainwestowalem w Profesionala i jestem z niego zadowolony od kilku lat