delphi 해석 xml
4216 단어 delphi
// xml ( , )
ComXML := LoadXMLData(jmxml); XMLNode := ComXML.DocumentElement; if not XMLNode.HasChildNodes then Exit; nodeList := XMLNode.ChildNodes;
for i := 0 to nodeList.Count - 1 do begin if nodeList[i].IsTextElement then//요소 begin if nodeList[i].NodeName=‘code’ then begin code :=nodeList[i].NodeValue; end else if nodeList[i].NodeName=‘msg’ then begin if msg = ‘’ then begin msg:=’’; end else begin msg:=nodeList[i].NodeValue; end; end else if nodeList[i].NodeName=‘counts’ then begin counts:=nodeList[i].NodeValue; end; end else if nodeList[i].HasChildNodes then//하위 노드 begin nodeList1: = XMLNode.ChildNodes[‘lc01s’].ChildNodes; for j:= 0 to nodeList1.Count - 1 do begin if nodeList1[j].HasChildNodes then begin nodeList2 := XMLNode.ChildNodes[‘lc01s’].ChildNodes[j].ChildNodes;
for z:= 0 to nodeList2.Count - 1 do
begin
if nodeList2[z].NodeName='aac001' then
begin
aac001 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='alca02' then
begin
alca02 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='aab001' then
begin
aab001 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='aab009' then
begin
aab009 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='aab301' then
begin
aab301 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='aac002' then
begin
aac002 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='aac003' then
begin
aac003 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='aac004' then
begin
aac004 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='aaea06' then
begin
aaea06 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='akb020' then
begin
akb020 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='alc020' then
begin
alc020 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='alc021' then
begin
alc021 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='alc022' then
begin
alc022 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='alc024' then
begin
alc024 :=vartostr( nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='alc023' then
begin
alc023 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='alc027' then
begin
alc027 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='alc060' then
begin
alc060 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='ala040' then
begin
ala040 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='alc084' then
begin
alc084 := vartostr(nodeList2[z].NodeValue);
end
else if nodeList2[z].NodeName='aae116' then
begin
aae116 := vartostr(nodeList2[z].NodeValue);
end;
end;
end;
end;
end;
end;
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Delphi 10.3.3 IDE 글꼴 및 글꼴 크기 수정Delphi는 Windows 플랫폼에서 유명한 빠른 응용 프로그램 개발 도구(Rapid Application Development, 약칭 RAD)입니다.그것의 전신은 바로 DOS 시대에 성행한'Borland Turb...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.