如何把memo中的内容写入指定文件(.dat)？

Question

如何把memo中的内容写入指定文件(.dat)？

Answer 1

Memo1.Lines.SaveToFile('c:\test.dat');

Answer 2

这样是把memo中所有内容都写入文件吗？

Answer 3

//创建file
var
  myfile:string;
  f:textfile;
begin
  myfile:=extractfilepath(paramstr(0))+datetostr(date)+'.dat';
  if not FileExists(myfile) then
  begin
     assignfile(f,myfile);
     rewrite(f);
     closefile(f);
  end;
end;
//保存file
  assignfile(f,myfile);
  reset(f);
  writeln(f,Memo1lines[1];)
  closefile(f);

Answer 4

//创建file
var
  myfile:string;
  f:textfile;
begin
  myfile:=extractfilepath(paramstr(0))+datetostr(date)+'.dat';
  if not FileExists(myfile) then
  begin
     assignfile(f,myfile);
     rewrite(f);
     closefile(f);
  end;
end;
//保存file
  assignfile(f,myfile);
  reset(f);
  writeln(f,Memo1.lines[1];)
  closefile(f);

Answer 5

leaya11(lee) 
不好意思，我用的是朋友的帐号！：P

Answer 6

Memo1.Lines.SaveToFile就可以输入多行文件啊。

Answer 7

我希望不通过memo，而是直接输入。

Answer 8

agree with cg1120(代码最优化－§新年祝福你，好运伴着你§)  
呵呵...

Answer 9

有I/O Error 105 的错误！

Answer 10

而且Memo1.Lines.SaveToFile每次都是将文件内原来的内容覆盖的。
有没有可以迭加的办法？

Answer 11

Memo.Lines.SaveToFile('123.dat');
==
可以的,迭加的办法:
使用cg1120的方法,但改为
assignfile(f,myfile);
  Append(f);// 表示追加数据

Answer 12

有I/O Error 105 的错误！
是什么原因啊？

Answer 13

说明：如果是上边有unicode文字，那就别指望用这些方法了