社区
Delphi
帖子详情
怎样创建txt文件,并把一些字符串写到txt文件?
hairun
2003-08-30 06:45:47
谢谢
...全文
116
5
打赏
收藏
怎样创建txt文件,并把一些字符串写到txt文件?
谢谢
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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方法
python
创建
txt
文件
并写入
字符串
-python
创建
txt
文件
1.自己写入
txt
直接上核心代码:with open("douban.
txt
","w") as f:f.write("这是个测试!")1212这句话自带
文件
关闭功能,所以和那些先open再write再close的方式来说,更加pythontic!...
Vue 将
字符串
保存成
TXT
文件
保存到电脑
Vue 将
字符串
保存成
TXT
文件
保存到电脑 vue 前端有一段
字符串
,然后点击按钮,将
字符串
保存到
txt
文件
下载到电脑。 首先需要安装一下依赖: ... let str = '王佳伟Vue
字符串
保存到
txt
文件
下载到电脑案例' le
java
文件
字符串
_java将
字符串
写入到
txt
文件
中
将
字符串
写入到
txt
文件
中import java.io.BufferedWriter;import java.io.File;import java.io.FileNotFoundException;import java.io.FileOutputStream;import java.io.FileWriter;import java.io.IOException;...
python实现将
字符串
输出到
txt
文件
中,并合并多个
txt
文件
python实现将
字符串
输出到
txt
文件
中,并合并多个
txt
文件
c++写入
字符串
到
txt
文件
写入string到
txt
文件
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章