[S] XML Lib

[Muetze1]

Delphi-Quellcode:

Var
  lSubNode: TXMLNode;
Begin
  lSubNode := xmllib.rootnode.GetNode('s1.code', nhReturnNil);
  If Assigned(lSubNode) Then
    ShowMessage(lSubNode.Value.AsString);

  lSubNode := xmllib.rootnode.GetNode('s1.name', nhReturnNil);
  If Assigned(lSubNode) Then
    ShowMessage(lSubNode.Value.AsString);
End;