Delphi UTF8文件读写操作

Delphi UTF8文件读写操作

function LoadUTF8File(FileName: string): string;
var
  SS: TStringStream;
begin
  SS := TStringStream.Create('', TEncoding.UTF8);
  SS.LoadFromFile(FileName);
  Result := SS.DataString;
end;
 
 
procedure SaveUTF8File(Content:string;FileName: string);
var
  SS: TStringStream;
begin
  SS := TStringStream.Create('', TEncoding.UTF8);
  SS.WriteString(Content);
  SS.SaveToFile(FileName);
  SS.Free;
end;