Revision 13:c78b5eafa10e UXmlHelper.pas

b/UXmlHelper.pas
55 55 

  		





  56
  56
  
    
class function TXmlHelper.FindChild(AParent: TDOMElement; AName: string): TDOMElement;


  		





  57
  57
  
    
var


  		





  58
  
  
    
  i: Integer;


  		





  
  58
  
    
  i: LongWord;


  		





  59
  59
  
    
  nodeList: TDOMNodeList;


  		





  60
  60
  
    
begin


  		





  61
  61
  
    
  Result := nil;


  		





  ......




  71
  71
  
    
end;


  		





  72
  72
  
    

  		





  73
  73
  
    
class function TXmlHelper.AssureElement(AParent: TDOMElement; AName: string): TDOMElement;


  		





  74
  
  
    
var


  		





  75
  
  
    
  i: Integer;


  		





  76
  
  
    
  nodeList: TDOMNodeList;


  		





  77
  74
  
    
begin


  		





  78
  75
  
    
  Result := FindChild(AParent, AName);


  		





  79
  76
  
    
  if Result = nil then


  		












Also available in:
	Unified diff