XML을 직렬화 할 때 각 속성을 자체 행에 어떻게 가져 옵니까?

Question

구성 데이터를 XML 파일에 쓰려고합니다. 그러나 XML은 매우 구조화 보이거나 어떻게 그것을

<Configuration> 
    <Ftp 
     Host="LOCALHOST" 
     Port="21" 
    /> 
    <Pop3 
     Host="LOCALHOST" 
     Port="110" 
     Interval="30000" 
    /> 
    <Smtp 
     Host="LOCALHOST" 
     Port="25" 
    /> 
</Configuration> 

같이하고 싶은

<Configuration> 
    <Ftp Host="LOCALHOST" Port="21"/> 
    <Pop3 Host="LOCALHOST" Port="110" Interval="30000"/> 
    <Smtp Host="LOCALHOST" Port="25"/> 
</Configuration> 

말할 수 여기에 어떤 식 으로든 이 내 델파이 코드의 조각이라는 것이다 수 있습니다. 모든 유형의 함수/프로 시저가 있지만 여기에 2를 표시합니다.

constructor TConnXml.Create(const FileName: string); 
begin 
    inherited Create; 
    fConfigfile  := FileName; 
    fXMLDoc   := TXMLDocument.Create(Application); 
    fXMLDoc.Options := [doNodeAutoIndent]; 
    if FileExists(fConfigfile) then 
    fXMLDoc.LoadFromFile(fConfigfile) 
    else 
    begin 
     fXMLDoc.Active := True; 
     fXMLDoc.AddChild('Configuration'); 
     fXMLDoc.SaveToFile(fConfigfile); 
    end; 
end; 

constructor TConnXml.Create; 
begin 
    Create(SettingsFileBuild); 
end; 

function TConnXml.ReadString(const Section, Key, Default: string): string; 
var 
    Node: IXMLNode; 
begin 
    Node := fXMLDoc.DocumentElement.ChildNodes.FindNode(Section); 
    if Assigned(Node) and Node.HasAttribute(Key) then 
    Result := Node.Attributes[Key] 
    else 
    Result := Default; 
end; 

procedure TConnXml.WriteString(const Section, Key, Value: string); 
var 
    Node: IXMLNode; 
begin 
    if ReadString(Section, Key, '') = Value then 
    Exit; 
    Node := fXMLDoc.DocumentElement.ChildNodes.FindNode(Section); 
    if not Assigned(Node) then 
    Node := fXMLDoc.DocumentElement.AddChild(Section); 
    Node.Attributes[Key] := Value; 
    fModified := True; 
    Save; 
end; 

procedure TConnXml.Save; 
begin 
    if not fModified then 
    Exit; 
    if fBackup then 
    CopyFile(PChar(fConfigfile), PChar(fConfigfile + '.bak'), False); 
    fXMLDoc.Active := True; 
    fXMLDoc.SaveToFile(fConfigfile); 
    fModified := False; 
end; 

function TConnXml.ReadBoolean(const Section, Key: string; Default: Boolean): Boolean; 
begin 
    Result := Boolean(ReadInteger(Section, Key, Integer(Default))); 
end; 

procedure TConnXml.WriteBoolean(const Section, Key: string; Value: Boolean); 
begin 
    WriteInteger(Section, Key, Integer(Value)); 
end; 

Answer 1

이 XML을 생성하고 구성 목적으로 사용하는 경우 더 읽기 쉽도록 만드는 것이 그 목적입니다. 구성을 위해 XML을 많이 사용하며 실제로 적용 할 수있는 경우에만 속성을 사용합니다.

나는이처럼 작성합니다

<Configuration> 
    <Ftp> 
    <Host>LOCALHOST</Host> 
    <Port>25</Port> 
    </Ftp> 
    <Pop3> 
    <Host>LOCALHOST/<Host> 
    <Port>110</Port> 
    <Interval>30000</Interval> 
    </Pop> 
    <Smtp> 
    <Host>LOCALHOST</Host> 
    <Port>25</Port> 
    </Smtp> 
</Configuration> 

다음, XML을 다른 형식을 사용하여, 또한 솔루션입니다. 그러나 XML을 고수한다면, 필자의 대답은 사람이 읽을 수있는 방식으로 XML을 구성하는 한 가지 방법입니다. 또한 특성을 사용하지 않으면 JSON으로의 변환이 매우 간단합니다.

XML이 마크 업으로 부 풀지 만 잘 구조화되어 있으면 읽을 수 있습니다. 컴퓨터 데이터 교환을위한 것이기는하지만 구성 파일에 매우 유용합니다. YAML은 잘 보이지만, 나를 위해 그것을 명시 적 구조 :

업데이트하는 것이 부족 :

때문에 나는 추가 정보와 답을 갱신 코드에 대한 요청에. 광산처럼 XML을 얻으려면 한 가지 절차 만 변경하면됩니다. 반면에 이것은 기본적인 XML 처리이므로 익히 게하십시오.

function TConnXml.ReadString(const Section, Key, Default: string): string; 
var 
    Node: IXMLNode; 
    Child: IXMLNode; 
begin 
    Node := fXMLDoc.DocumentElement.ChildNodes.FindNode(Section); 

    if not Assigned(Node) then 
    begin 
    Result := Default; 
    Exit; 
    end; 

    Child:= Node.FindNode(Key); 

    if not Assigned(Child) then 
    begin 
    Result := Default; 
    Exit; 
    end; 

    Result := Child.Text; 
end; 

procedure TConnXml.WriteString(const Section, Key, Value: string); 
var 
    Node: IXMLNode; 
    Child: IXMLNode; 
begin 
    if ReadString(Section, Key, '') = Value then 
    Exit; 

    Node := fXMLDoc.DocumentElement.ChildNodes.FindNode(Section); 

    if not Assigned(Node) then 
    Node := fXMLDoc.DocumentElement.AddChild(Section); 

    Child:= Node.ChildNodes.FindNode(Key); 

    if not Assigned(Child) then 
    Child:= Node.AddChild(Key); 

    Child.Text := Value; 
    fModified := True; 
    Save; 
end; 

테스트하지 않고 작성 했으므로 오류가있을 수 있지만 사용해야하는 코드입니다.