Ładny brzuch
Witam
Mam plik XML:
<?xml version="1.0" encoding="UTF-8"?> <btio> <funkcja nazwa="cin" opis="Wczytanie danych do zmiennej">cin << %z;</funkcja> <funkcja nazwa="cout" opis="Wypisanie danych ze zmiennej">cout >> %z;</funkcja> </btio>
i kod programu:
Node[ciach!]:= XML.ChildNodes.FindNode('btio'); if Assigned(Node[ciach!]) then begin XMLNode:= Node[ciach!].ChildNodes.FindNode('funkcja'); while XMLNode <> nil do begin l:= ListView1.Items.Add; l.Caption:= XMLNode.AttributeNodes['nazwa'].Text; l.SubItems.Add(XMLNode.AttributeNodes['opis'].Text); ShowMessage(XMLNode.NodeValue); //l.SubItems.Add(XMLNode.NodeValue); XMLNode:= XMLNode.NextSibling; end; end;
wysypuje si na ShowMessage()
Element does not contain a single text node
Chciabym odczyta warto gazi czyli "cin << %z;"
begin XML.FileName := 'ed.xml'; try XML.Active := True; XMLNode := XML.ChildNodes.FindNode('btio'); if Assigned(XMLNode) then begin XMLNode := XMLNode.ChildNodes.FindNode('funkcja'); while XMLNode <> nil do with ListView1.Items.Add do begin Caption := XMLNode.AttributeNodes['nazwa'].Text; SubItems.Add(XMLNode.AttributeNodes['opis'].Text); // ShowMessage(XMLNode.NodeValue); SubItems.Add(XMLNode.NodeValue); XMLNode := XMLNode.NextSibling; end; end; finally XML.Active := False; end; end;
A co mi po bloku try..except? Jak ja chc warto wycign?
jeju ;) to nie musisz.
W kadym bd razie dziaa
lol. no nie dziaa bo nie zwraca mi wartoci zapisanej w tagu.
lol. no nie dziaa bo nie zwraca mi wartoci zapisanej w tagu.
begin XML.FileName := 'C:\Users\Qenix\Desktop\ed.xml'; XML.Active := True; XMLNode := XML.ChildNodes.FindNode('btio'); if Assigned(XMLNode) then begin XMLNode := XMLNode.ChildNodes.FindNode('funkcja'); while XMLNode <> nil do with ListView1.Items.Add do begin Caption := XMLNode.AttributeNodes['nazwa'].Text; SubItems.Add(XMLNode.AttributeNodes['opis'].Text); SubItems.Add(XMLNode.NodeValue); SubItems.Add(XMLNode.Text); XMLNode := XMLNode.NextSibling; end; end; end;
http://img14.imageshack.us/img14/623/dziala1.jpg
Uytkownik Qenix edytowa ten post 22 luty 2010, 17:59
Hmm. dziwne. Problem powodoway znaki < i >.
Po uyciu CDATA w rodku wszystko miga.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam plik XML:
<?xml version="1.0" encoding="UTF-8"?> <btio> <funkcja nazwa="cin" opis="Wczytanie danych do zmiennej">cin << %z;</funkcja> <funkcja nazwa="cout" opis="Wypisanie danych ze zmiennej">cout >> %z;</funkcja> </btio>
i kod programu:
Node[ciach!]:= XML.ChildNodes.FindNode('btio'); if Assigned(Node[ciach!]) then begin XMLNode:= Node[ciach!].ChildNodes.FindNode('funkcja'); while XMLNode <> nil do begin l:= ListView1.Items.Add; l.Caption:= XMLNode.AttributeNodes['nazwa'].Text; l.SubItems.Add(XMLNode.AttributeNodes['opis'].Text); ShowMessage(XMLNode.NodeValue); //l.SubItems.Add(XMLNode.NodeValue); XMLNode:= XMLNode.NextSibling; end; end;
wysypuje si na ShowMessage()
Element does not contain a single text node
Chciabym odczyta warto gazi czyli "cin << %z;"
begin XML.FileName := 'ed.xml'; try XML.Active := True; XMLNode := XML.ChildNodes.FindNode('btio'); if Assigned(XMLNode) then begin XMLNode := XMLNode.ChildNodes.FindNode('funkcja'); while XMLNode <> nil do with ListView1.Items.Add do begin Caption := XMLNode.AttributeNodes['nazwa'].Text; SubItems.Add(XMLNode.AttributeNodes['opis'].Text); // ShowMessage(XMLNode.NodeValue); SubItems.Add(XMLNode.NodeValue); XMLNode := XMLNode.NextSibling; end; end; finally XML.Active := False; end; end;
A co mi po bloku try..except? Jak ja chc warto wycign?
jeju ;) to nie musisz.
W kadym bd razie dziaa
lol. no nie dziaa bo nie zwraca mi wartoci zapisanej w tagu.
lol. no nie dziaa bo nie zwraca mi wartoci zapisanej w tagu.
begin XML.FileName := 'C:\Users\Qenix\Desktop\ed.xml'; XML.Active := True; XMLNode := XML.ChildNodes.FindNode('btio'); if Assigned(XMLNode) then begin XMLNode := XMLNode.ChildNodes.FindNode('funkcja'); while XMLNode <> nil do with ListView1.Items.Add do begin Caption := XMLNode.AttributeNodes['nazwa'].Text; SubItems.Add(XMLNode.AttributeNodes['opis'].Text); SubItems.Add(XMLNode.NodeValue); SubItems.Add(XMLNode.Text); XMLNode := XMLNode.NextSibling; end; end; end;
http://img14.imageshack.us/img14/623/dziala1.jpg
Uytkownik Qenix edytowa ten post 22 luty 2010, 17:59
Hmm. dziwne. Problem powodoway znaki < i >.
Po uyciu CDATA w rodku wszystko miga.