Delphi 读取txt文件

RAD Studio 10.3 测试√

function LoadUTF8File(FileName: string): string;            //读 txt 文件
var
  SS: TStringStream;
begin
  SS := TStringStream.Create('', TEncoding.UTF8);
  SS.LoadFromFile(FileName);
  Result := SS.DataString;
end;

使用方法：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(LoadUTF8File('文件路径'));
end;

---

笔记源码

---

学习中记录的一点点笔记，以便以后翻阅。