var xml: TXMLDocument; begin xml:=TXMLDocument.Create(Application); try xml.Active:=true; xml.Encoding:='UTF-8'; xml.Version:='1.0'; xml.Options:=[doNodeAutoIndent]; (* 情報の書き込み処理 *) finally xml.Free; end; |
delphi >