Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.771 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: XML ohne Declaration

  Alt 19. Mär 2021, 17:04
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  xmlDoc: IXmlDocument;
begin
  coInitialize(nil);
  xmlDoc := newXmlDocument;
  xmlDoc.Active := true;
  xmlDoc.Encoding := 'UTF-16';
  memo1.Lines.Text := xmlDoc.XML.Text;
  coUnInitialize;
end;
im Memo steht dann: <?xml version="1.0" encoding="UTF-16"?>

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat