프로그래밍 노트

델파이에서 XML에 CRLF를 쓰고 읽으려고 하면 CRLF를 써도 읽어지는 것은 LF만 읽어진다. 인터넷에서 열심히 뒤져 봐도 뾰족한 대안을 못찾았다. 그래서 생각해낸 방법은 LF만 있을 경우 LF를 모두 CRLF로 바꾸면 된다. 먼저 LF만 있는지 확인하는 방법 function CheckOnlyLF(sSrc: string): boolean; var iCrLf, iLf : integer; begin result := false; iCrLf := Pos(#13 + #10, sSrc); iLf := Pos(#10, sSrc); if (iCrLf = 0) and (iLf > 0) then result := true; end; 이 소스는 LF를 하나만 검색하면 그냥 나와버린다. 그리고 LF를 모두 CRLF로 변..

델파이에서 XMLDocument 컴포넌트를 사용해서 XML 파일 불러 TreeView에 표시하는 소스 ■ XML 파일 불러오기 // XML 파일 읽어오기 procedure TForm1.Button2Click(Sender: TObject); Var xdSoft : TXMLDocument; begin OpenDialog1.Filter := 'Xml file|*.xml'; if OpenDialog1.Execute then begin // XML Document 만들기 xdSoft := TXMLDocument.Create(Application); // XML Document 불러오기 xdSoft.LoadFromFile(OpenDialog1.FileName); xdSoft.Active := True; // Tre..

델파이에서 XMLDocument 컴포넌트로 XML파일을 읽고 쓰는 방법은 말로 설명하기는 좀 어렵고 그냥 소스를 보는 것이 알기 쉬울 것같다. 먼저 uses에 XMLDoc, XMLIntf을 추가한다. ■ XML 파일 쓰기 // XML 파일 만들고 쓰기 procedure TForm1.Button1Click(Sender: TObject); Var xdSoft : TXMLDocument; xnRoot : IXMLNode; xnChild : IXMLNode; xnGrandchild : IXMLNode; begin // XML Document 만들기 xdSoft := TXMLDocument.Create(Application); xdSoft.Active := True; xdSoft.Encoding:= 'euc-kr..