Registriert seit: 30. Nov 2005
Ort: München
5.771 Beiträge
Delphi 10.4 Sydney
|
AW: XML ohne Declaration
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
|