如何在程序中自动产生一个文本文件，并保存在指定目录下面？

Question

如何在程序中自动产生一个文本文件，并保存在指定目录下面？
应该使用什么函数？
请高手提供简单代码，谢谢！

Answer 1

使用 CreateFile 都可以了。。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  strfile:string;
begin
  strFile:=ExtractfilePath(application.ExeName)+'test111.txt';
  //当前程序路径，也可以自己设置路径
  if not FileExists(strfile) then//文件不存在，就创建文件
  begin
     FileCreate(strFile);
  end;
end;

Answer 3

可以直接对文件File操作,如：
var F: TextFile;begin
  AssignFile(F, 'NEWFILE.$$$');
  Rewrite(F);
  Writeln(F, 'Just created file with this text in it...');
  CloseFile(F);
end;或者，你用一个TStringList记录后直接SaveToFile，如：
var
  AList: TStringList;
begin
  AList := TStringList.Create;
  try
    AList.Add('No.1');
    ...
    AList.SaveToFile('D:\123.txt');
  finally
    AList.Free;
  end;
end;

Answer 4

我晕。上面两种都可以噻，第一种，Rewrite改成Reset即可。第二种，你先AList.LoadFromFile('D:\123.txt');再Add就可以了。
你可以自己看下帮助的，第一个例子我就是直接copy的delphi帮助例子。

Answer 5

如果是保存设置的话，用ini文件更快，delphi里有这个类，tinifile，很方便

Answer 6

var
  F :textfile;
begin
  Assignfile(F,'r.txt');
  if not FileExists('r.txt') Then
  begin
    Rewrite(F);
    Closefile(F);
  End
  Else
  Assignfile(F,'r.txt');
  {$I-}
  Append(F);
  {$I+}
  If IOResult<> 0 Then
  Begin
    ShowMessage('Cannot Open File');
  End;
  Write(F,Memo1.Text);
  Memo1.Clear;
  Closefile(F);
end;
memo1.text的内容被添加进文本文件r.txt内，不会覆盖原内容