如何在程序中自动产生一个文本文件，并保存在指定目录下面？ [问题点数：100分，结帖人lorvery]
-
本版专家分：58结帖率 100% -
如何在程序中自动产生一个文本文件，并保存在指定目录下面？
应该使用什么函数？
请高手提供简单代码，谢谢！问题点数：100分
-
本版专家分：58
-
在线等待！
请指教！
高分回报！
-
本版专家分：18554 -
使用 CreateFile 都可以了。。
-
本版专家分：10260
-
- 蓝花 2004年12月 Delphi大版内专家分月排行榜第三
-
-
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;
-
本版专家分：7415 -
我那个系统中用过，不好意思想不起来啦，帮你顶一下吧
-
本版专家分：6844
-
可以直接对文件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;
-
本版专家分：58
-
如何在已经存在的文本文件中添加内容，并不覆盖已经有的内容！
就是实现内容的累加
-
本版专家分：6844
-
我晕。上面两种都可以噻，第一种，Rewrite改成Reset即可。第二种，你先AList.LoadFromFile('D:\123.txt');再Add就可以了。
你可以自己看下帮助的，第一个例子我就是直接copy的delphi帮助例子。
-
本版专家分：345 -
如果是保存设置的话，用ini文件更快，delphi里有这个类，tinifile，很方便
-
本版专家分：6365
-
流亡的差不多
-
本版专家分：44
-
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内，不会覆盖原内容
