Delphi 加载UTF8编码文件（XE适用）

直接使用字串流方式加载文件即可

stm := TStringStream.Create('', TEncoding.UTF8);

stm.LoadFromFile(sFileName);

sTemp := stm.DataString;//获得解码内容