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;