在DELPHI中如何创建一文本文件？

Question

var f:textfile;
begin
assign(f,path+name);
rewrite(f);
...
end;
创建！

Answer 1

ch81，记得应是AssignFile(F,Path + Name);

Answer 2

把rewrite改为reset是打开一个已存在的文件，改为append是打开一个已存在的文件，并把文件指针移到文件结尾处，以便添加数据。

Answer 3

另一种方法，呵呵。
var
  F:TStringList;
Begin
  F:=TStringList.Create;
  F.SavetoFile(FileName);
  F.Free;
end;

Answer 4

办法n多，用SaveToFile方法是最省事的！

Answer 5

写memo.text  savetofile

Answer 6

TO: j_xuhome(臭名招著的程序员),Assign()和AssignFile()都有的，两者功能是一样的，一个是以前PASCAL的，一个是DELPHI新的。主要是为了兼容问题才都存在的。

Answer 7

var
  OutputFile:TextFile;
begin
 if FileExists('C:\AAA.txt') then
    AssignFile(OutputFile, 'C:\AAA.txt');

Answer 8

var txtfile:textfile
 begin
  assignfile(txtfile,'filename'or path);
  reset(txtfile);
  writeln(txtfile,'字符串');
  closefile(txtfile);
end;