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;





联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678