Delphi 写入txt文件

RAD Studio 10.3 测试√
方法1：

procedure TForm1.Button2Click(Sender: TObject);
var
  wText: TextFile;
begin
  AssignFile(wText, '文件地址');
  Rewrite(wText);                  // Rewrite 更改文件内容为 Memo1.Text 的内容 【文件不存在会新建】
//  Append(wText);                 // Append 向文本里面追加文本 【文件不存在时会报错】
  Writeln(wText, Memo1.Text);      // 第二个参数为（修改/追加）的内容
  CloseFile(wText);
end;

方法2：

procedure SaveUTF8File(Content:string;FileName: string);
var                               // 更改文件内容为 Memo1.Text 的内容 【文件不存在会新建】
  SS: TStringStream;
begin
  SS := TStringStream.Create('', TEncoding.UTF8);
  SS.WriteString(Content);
  SS.SaveToFile(FileName);
  SS.Free;
end;

//用法：
procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveUTF8File(Memo1.Text, '文件地址');  //参数1【修改内容】
end;

---

笔记源码

---

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