Free Pascal 文件输入输出 怎样创建输入文件

[复制链接]
查看11 | 回复3 | 2010-12-11 14:40:08 | 显示全部楼层 |阅读模式
关联命令 assign(文件变量,实际文件名);如:assign(f1,'c:\files\file1.in');rewrite(f1);创建并打开该文件准备写,若已有同名文件则删除再创建append(f1)打开已存在的文件并追加(即文件中的原有信息不丢失)。write(f1,写入的内容);将写入内容写入文件变量所关联的实际文件中。close(f1);关闭文件reset(f1)打开该文件准备开始读取操作read(f1,);从变量f所指向的实际文件中读取内容eoln(f1);判断行是否结束eof(f1);判断整个文件是否结束。还可以用input,output这两个变量
回复

使用道具 举报

千问 | 2010-12-11 14:40:08 | 显示全部楼层
比赛时只需ASSIGN(INPUT,' ***.in');ASSIGN(outPUT,' ***.out');reset(input);rewrite(output);close(input);close(output);就行了
回复

使用道具 举报

千问 | 2010-12-11 14:40:08 | 显示全部楼层
点击File 里的New就好了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行