怎样创建txt文件,并把一些字符串写到txt文件?

hairun 2003-08-30 06:45:47
谢谢
...全文
116 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
zousoft 2003-08-30
  • 打赏
  • 举报
回复
if not FileExists(MyFile) then
AssignFile(MyTextFile, MyFile);
第二遍点击自然就不会assignfile了,可是后面还ReWrite(MyTextFile);当然会出错。
可以改为if FileExists(MyFile) then exit;
hairun 2003-08-30
  • 打赏
  • 举报
回复
下面代码有什么问题啊,刚点击没问题,为何再点击出现异常啊?
procedure TForm1.Button1Click(Sender: TObject);
Var
MyTextFile:TextFile;
MyFile:string;
begin
MyFile:='User.txt';
if not FileExists(MyFile) then
AssignFile(MyTextFile, MyFile);
ReWrite(MyTextFile);
try
Writeln(MyTextFile);
Writeln(MyTextFile);
Writeln(MyTextFile);
Writeln(MyTextFile);
Writeln(MyTextFile,'你好');
finally
CloseFile(MyTextFile);
end;
end;
xjlqlqlq 2003-08-30
  • 打赏
  • 举报
回复
楼上正确。。。

四步曲:
1.声明: f :TextFile;
2.创建: AssignFile(f,'文件名');
ReWrite(f); //如有同名文件会覆盖
3.写数据: Writeln(f,'...写入的字符串...');
4.关闭文件: CloseFile(f);
楚人无衣 2003-08-30
  • 打赏
  • 举报
回复
//创在当前文件夹下

procedure Tfrmmain.btncreateClick(Sender: TObject);
var
MyTextFile: TextFile;
MyFile: string = 'test.txt';
begin
if FileExists(MyFile) then
MessageBox(handle, PChar('所要创建的文件' + MyFile + '已存在!'), '提示', mb_iconWarning + mb_Ok)
else
begin
AssignFile(MyTextFile, MyFile);
ReWrite(MyTextFile);
write(MyTextFile, meotxt.text); //meotxt为TMemo控件
MessageBox(handle, PChar('文件' + MyFile + '创建成功!'), '提示', mb_iconWarning + mb_Ok);
CloseFile(MyTextFile);
end;
end;
hkbarton 2003-08-30
  • 打赏
  • 举报
回复
用stringlist的savetofile方法

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧