读写文件的问题

Question

假设一个文本文件名为xxx.txt，里面有内容如下：xxxxx
xxxxxxxxxxxxxx
xxxx
xxxxxxxxxxxxxxxxxxxxx我现在要把这个文件里面的内容删除，然后写入新的内容：xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxxxx
xxxxxxxxxxxxxxx怎么样实现呢？

Answer 1

呵呵，方法太多了
不过我常用的方法是用tmemo.lines.loadfromfile
然后，memo.lines.clear;
memo.lines.add();
memo.lines.savetofile

Answer 2

var sFile: String;
    tFile: TextFile;  sFile := 'c:\ttt.txt';
  AssignFile(tFile,sFile);
  ReWrite(tFile);  //重新写入  
  WriteLn(tFile,'123123123');
  WriteLn(tFile,'asdasdasd');
  CloseFile(tFile);

Answer 3

用assignfile建立连接
rewrite创建并打开一个新文件可覆盖原文件
wirteln写入要写的东东
close关闭

Answer 4

var
  f:Text;
begin
  AssignFile(f, 'c:\....\xxx.txt');
  rewrite(f)
  writeln(f, 'xxxxx');
  writeln(f, 'xxx....');
    .
    .
    .
  CloseFile(f);
end;

Answer 5

写入文件
procedure TForm1.Button1Click(Sender: TObject);
var
   filevar: textfile;
   buf:string;
begin
  buf:='xxxxxxxx'+#13+'xxxxx'+#13+'xxxxxxx';
  assignfile(filevar,'a.txt');
  append(filevar);
  writeln(filevar,buf);
  closefile(filevar);
end;

Answer 6

tfilecstream.create('dfd.txt',fmCreate);