社区
Delphi
帖子详情
怎样创建txt文件,并把一些字符串写到txt文件?
hairun
2003-08-30 06:45:47
谢谢
...全文
119
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!...
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;...
Vue 将
字符串
保存成
TXT
文件
保存到电脑
Vue 将
字符串
保存成
TXT
文件
保存到电脑 vue 前端有一段
字符串
,然后点击按钮,将
字符串
保存到
txt
文件
下载到电脑。 首先需要安装一下依赖: ... let str = '王佳伟Vue
字符串
保存到
txt
文件
下载到电脑案例' le
c语言读取
txt
到一个
字符串
,c语言读取
txt
文件
内容简单实例
要读取一个
txt
文件
,首先要使用
文件
打开函数fopen()。fopen函数用来打开一个
文件
,其调用的一般形式为:
文件
指针名=fopen(
文件
名,使用
文件
方式) 其中,“
文件
指针名”必须是被说明为FILE 类型的指针变量,“
文件
名...
python将
txt
文件
转为
字符串
_Python
文件
如何转换为
字符串
Python
文件
如何转换为
字符串
一、最方便的方法是一次性读取
文件
中的所有内容并放置到一个大
字符串
中:all_the_text = open('thefile.
txt
').read( ) # 文本
文件
中的所有文本all_the_data = open('abinfile','rb').read...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章