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

[lorvery]

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

[ssq237712]

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

[tongyuja]

楼上的几位都写完了。

[nicotine]

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

[lorvery]

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

[beyondtkl]

使用 CreateFile 都可以了。。

[bee2518]

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;

[lyguo]

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

[lorvery]

谢谢！

[ssq237712]

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

[lorvery]

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

[kuki84]

流亡的差不多

[nisazhixin]

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