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

[AJ_XF]

[jhxf]

memo1.Lines.savetofile(filename)

[huocx]

最简单的办法savetofile

[ch81]

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

[j_xuhome]

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

[little_f]

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

[summernightrain]

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

[windfantasy]

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

[prometheusphinx]

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

[qq_13439718]

写memo.text savetofile

[j_xuhome]

哦！原来如此啊

[Barbarian]

用TFileStream也可以实现

[bokei]

我觉得用TFileStream最好

[xiaoxinxx168]

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

[tob]

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