在线等待！
请指教！
高分回报！

使用 CreateFile 都可以了。。

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;

我那个系统中用过，不好意思想不起来啦，帮你顶一下吧

谢谢！

可以直接对文件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;

如何在已经存在的文本文件中添加内容，并不覆盖已经有的内容！
就是实现内容的累加

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

楼上的几位都写完了。

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

流亡的差不多

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内，不会覆盖原内容