Delphi 读取txt文件函数

Delphi 读取txt文件函数

function LoadUTF8File(FileName: string): string;            //读 txt 文件

var

  SS: TStringStream;

begin

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

  SS.LoadFromFile(FileName);

  Result := SS.DataString;

end;