TMemo中的Lazarus打开XML文件

Question

我正在尝试以文本形式在TMemo中打开XML文件。 每当我这样做时，它就会打开：

我知道那不是XML中的内容，如果我在记事本中打开该文件，它将很好地打开并显示XML数据，纯文本。

这是我的代码：

procedure TForm1.Button7Click(Sender: TObject);
var
  ss: string;
  sl: TStringList;
begin
  ss := '';
  runcommand('msinfo32 /nfo pcinfo.xml', ss);
  sl:=TStringList.Create;
  sl.LoadFromFile('pcinfo.xml');
  Memo2.Text := sl.Text;
  sl.Free;
end;

Answer 1

该文件以Unicode保存，打开记事本和另存为文件显示了编码。 因此，将文件打开到流中，然后转换为UTF8就像一个魅力。

stream := TMemoryStream.Create;
  try
    stream.LoadFromFile('pcinfo.xml');
    SetLength(s, stream.Size);
    stream.ReadBuffer(s[1], stream.Size);
    memo2.Text := ConvertEncoding(s, GuessEncoding(s), EncodingUTF8);
  finally
    stream.Free;
  end;