delphi生成文本文件

[xxist]

小弟初学delphi，想请教一下，想生成文本文件除了插入文件代码以为还有什么其他好方法，听别人在资源文件那里可以，那位能大虾说的详细点，谢谢

[haohhz]

看不明白你的意思..

[wangxuelid]

其实主要用到
rewrite/write/writeln函数，，

[FeiXue_AL]

资源释放
1.你先要把你的txt文件用brcc32转换成res资源文件.(brcc32你安装delphi后就会有)
在dos下用命令:brcc32 1.txt
之后你的目录下就会有一个1.res的文件.
2.复制1.res到你的代码目录.
3.在代码的implementation 下面插入{$R 1.RES}
如下
implementation
{$R *.dfm}
{$R 1.RES}
4.然后可以用下面代码来实现

procedure TForm.Button1Click(Sender: TObject);
begin
  MusicResToFile('SRC1', 'FILE2', '1.txt'); //释放文件
end;

//释放资源文件
procedure MusicResToFile(const ResName, ResType,FileName: string);
var
Res: TResourceStream;
begin
Res := TResourceStream.Create(HInstance,ResName, PChar(ResType));
Res.SaveToFile(FileName); //将资源保存为文件，即还原文件
//你还可以进行其它的流操作，在内存中实现对资源利用而不必另存为文件
Res.Free;
end;

[FeiXue_AL]

当然如果txt里内容不多的话你可以用TStringList来帮你完成

procedure TForm.Button1Click(Sender: TObject);
var
  sList : TStringList;
begin
  sList := TStringList.Creat;
  sList.add('第一行内容');
  sList.add('第二行内容');
  sList.SavetoFile('./1.txt'); //保存1.txt文件
  sList.Free;//释放TStringList资源
end;