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(nil);
  sTempXml.LoadFromXML(Memo1.Text);
  sTempXml.XML.Text := XmlDoc.FormatXMLData(sTempXml.XML.Text);
  sTempXml.Active := True;
  
  Memo1.Text := sTemlXml.XML.Text;
end;