XML Delphi/꿀팁 XML 파싱하기 - 2 var I, J: Integer; XMLDocument: IXMLDOMDocument; XMLNodeList: IXMLDOMNodeList; XMLChildNodeList: IXMLDOMNodeList; XMLTempNode: IXMLDOMNode; begin XMLDocument := CoDOMDocument.Create; XMLDocument.loadXML('XML Data..'); //Node 선택 XMLNodeList := XMLDocument.selectNodes('Node 선택..'); //선택한 Node의 리스트 for I := 0 to XMLNodeList.length - 1 do begin XMLChildNodeList := XMLNodeList.item[I].childNodes; //필.. Delphi/끄적이기 JSON/XML 코드뷰티 만들기 회사에서 제한된 네트워크 등으로 인해 각종 코드뷰티 사이트들을 이용하지 못하게 될 때가 있는데, 그럴경우 자주 쓰이는 JSON과 XML의 경우 델파이 포멧을 이용하여 간단하게 코드뷰티처럼 사용할 수 있습니다. uses .., System.Json, XMLDoc; procedure TextToJSONBeauty; var sTempJson: TJSONValue; begin sTempJson := TJSONObject.ParseJSONValue(Memo1.Text); Memo1.Text := TJSON.Format(sTempJson); end; procedure TextToXMLBeauty; var sTempXml: IXMLDocument; begin sTempXml := TXMLDocument.Create(.. Delphi/꿀팁 XML 파싱하기 - 1 uses .., MSXML; var sXML: string; sXML_FILE: string; XMLDocument: IXMLDOMDocument; begin XMLDocument := CoDOMDocument.Create; try sXML := '..'; //XML Format XMLDocument.loadXML(sXML); //스트링으로 읽기 sXML_FILE := 'C:\Test.xml'; XMLDocument.load(sXML_FILE); //파일로 읽기 if XMLDocument.parseError.errorCode 0 then ShowMessage(XMLDocument.parseError.reason); {To Do} finally XMLDocument.Free; end; end; 2020/0.. 이전 1 다음
