加载中 ...
首页 > 新三板 > 新三板公司 > 正文

[601099资金流向]文件系统01 – 零基础入门学习Delphi34

2024-01-31 15:23:32 来源:盛楚鉫鉅网

文件体系01

让编程改动国际

Changetheworldbyprogram

Delphi7的文件体系

一般所说的文件是指寄存在磁盘上的一组数据的调集,也称为磁盘文件。

文件的分类:按文件中的数据格局分,文件可分红“文本文件”和“二进制文件”。

[文本文件]

寄存的是与数据对应的字符的ASCII码,一个字符占一个字节。

如有实数-1234.567,要寄存在文本文件中,将以字符’-’、’1′、’2′、’3′、’4′、’.’、’5′、’6′、’7′的办法寄存,占9个字节。

[二进制文件]

数据都是以二进制办法寄存的,数据在文件中寄存的格局和它在内存中的格局是相同的。

如-1234.567可看成是一个Real型数据,在内存中占4个字节。

可见,二进制办法寄存数据占有存储空间较少,但不直观。文本文件占用的存储空间较多,比较直观。

运用磁盘文件的进程

[知识补丁]

磁盘文件是寄存在磁盘上的,而运转的程序只能处理在内存中的数据,不能直接处理磁盘等外存储器上的数据。(小鱼画图时刻)

因而只要把磁盘文件中的数据读到内存中,才能在程序中运用。

相同,程序中发生或修正的都是内存中的数据,有必要把这些数据写到相应的文件中去,才能使数据保存下来。

可见,磁盘文件在运用之前有必要“翻开”,在运用结束后应要“封闭”。

[常见的完成办法]

创立文件

读取文件

向一个文件的结束添加数据

读文件中某一方位的数据(随机读)

修正文件中某一方位的数据(随机写)

文件指针

问题:如安在一个文件中心部分写入数据?

磁盘文件翻开后,将会发生一个指针,它指向下一非必须读写的数据方位,该指针称为文件指针。

文件指针具有主动移动的功用,文件刚翻开时,文件指针指向磁盘文件中的第1个数据,当读取了这个数据后,文件指针主动指向下一个数据。

当把数据写入某个文件时,文件指针总是主动指向下一非必须写入数据的方位。

Delphi7中的文件类型及文件类型变量的界说

在Delphi7中,常常运用的文件有两类:TextFile(文本文件)和File(二进制文件)

TextFile文件中包含着咱们能读懂的文本。

File寄存办法是二进制,一般用来寄存记载类型的数据(称记载型文件)。

文本文件变量的界说

运用文件前需求界说一个文件型的变量,文本文件型变量的界说格局与功用如下:

[界说一个文本文件变量]

Var

文本文件变量名:TextFile;

如:

var

FishcFile:TextFile;

该句子界说了一个TextFile类型的文本文件变量,变量名为FishcFile。

该变量能够与一个文本文件相联络,文本文件中能够用来寄存字符。

文本文件的运用

再次着重一下:文本文件在运用之前有必要要翻开(加载到内存),对翻开的文件能够进行读写操作,读写往后要封闭。

文本文件的翻开

翻开文本文件可分红两个进程:

一是把文件变量与实践的文本文件相关起来;

二是翻开相应的文本文件。

相关文本文件变量与文本文件

可经过AssignFile进程来相关文件变量与实践的磁盘文件,该进程的格局与功用如下:

procedureAssignFile(varF;FileName:string);

如:

AssignFile(FishcFile,‘Fishc.txt’);

[阐明]

相关了文件类型变量与磁盘文件往后,下面临磁盘文件的操作就能够经过文件型变量来进行了,程序中就不需求再与详细的磁盘文件打交道。

翻开文本文件

把磁盘文件与文件型变量相关在一起后,就能够翻开文件,翻开文件可运用Reset、Rewrite或Append进程中的一个来进行。

[Reset]以”只读”办法翻开

procedureReset(varF[:File;RecSize:Word]);

看上去很杂乱?

没事,其实咱们只需求这么调用即可:Rewrite(FishcFile);

[Rewrite]以”只写”办法创立与翻开

procedureRewrite(varF:File[;Recsize:Word]);

留意:假如磁盘上有一个同名的文件,该文件将被删去并创立一个新的空文件。当时文件指针将置于空文件的最初。

[Append]以”添加”办法翻开

procedureAppend(varF:Text);

留意:运用这种办法翻开文件后,文件指针坐落文件的结束。

Payattention

参数Word是一个可选参数,当文件是一个无类型的文件时,该参数用来界说无类型文件的尺度巨细。

三种办法,假如指定的文件现已翻开,将首要封闭该文件,然后再创立/翻开它,当时文件指针将置于空文件的最初。

当运用Append和Reset的时分,假如翻开的文件不存在,将会呈现一个过错。

文本文件的封闭

封闭文件运用CloseFile进程:

procedureCloseFile(varF);

留意:运用CloseFile进程封闭文件时,对文件的更新将实践写到磁盘文件中去,并断开文件型变量F与实践的磁盘文件之间的联络。

[成对呈现]

AssignFile(FishcFile,‘Fishc.txt’);

…………

CloseFile(FishcFile);

文本文件的写操作

[写操作]

能够运用Write和Writeln进程向文本文件中写入数据。

Write仅仅把指定数据写到文本文件中去,Writeln不仅把数据写到文本文件中去,并且还要在写入的数据后加上换行符。

用这两个进程输出的数据能够是以下类型:Char、Byte、Shortint、Word、Longint、Cardinal、Single、Real、Double、Extended、Currency、PChar、AnsiString、ShortString、string、Boolean、Bool。

Write进程的格局和功用如下:

procedureWrite([varF:Text;]P1[,P2,...,Pn]);

功用:向文件型变量F相关的文件中写入P1,P2,…,Pn等表达式的值。

别的,在相应的数据后添加一个“:”和一个表明域的宽度的数字能够指定域宽和小数位。

测验一下:Example(课件及源代码下载)

小数位的指定办法是在域宽数字后加“:”再加上表明小数点位数的整数。

测验一下:Example2(课件及源代码下载)

视频下载
技能,IT技能,Delphi,视频教程
猜你喜欢的标签:

“盛楚鉫鉅网-财经,证券,股票,期货,基金,风险,外汇,理财投资门户”的新闻页面文章、图片、音频、视频等稿件均为自媒体人、第三方机构发布或转载。如稿件涉及版权等问题,请与

我们联系删除或处理,客服邮箱,稿件内容仅为传递更多信息之目的,不代表本网观点,亦不代表本网站赞同

其观点或证实其内容的真实性。

  • 声音提醒
  • 60秒后自动更新
  • 中国8月CPI年率2.3%,预期2.1%,前值2.1%。中国8月PPI年率4.1%,预期4.0%,前值4.6%。

    08:00
  • 【统计局解读8月CPI:主要受食品价格上涨较多影响】从环比看,CPI上涨0.7%,涨幅比上月扩大0.4个百分点,主要受食品价格上涨较多影响。食品价格上涨2.4%,涨幅比上月扩大2.3个百分点,影响CPI上涨约0.46个百分点。从同比看,CPI上涨2.3%,涨幅比上月扩大0.2个百分点。1-8月平均,CPI上涨2.0%,与1-7月平均涨幅相同,表现出稳定态势。

    08:00
  • 【 统计局:从调查的40个行业大类看,8月价格上涨的有30个 】统计局:从环比看,PPI上涨0.4%,涨幅比上月扩大0.3个百分点。生产资料价格上涨0.5%,涨幅比上月扩大0.4个百分点;生活资料价格上涨0.3%,扩大0.1个百分点。从调查的40个行业大类看,价格上涨的有30个,持平的有4个,下降的有6个。 在主要行业中,涨幅扩大的有黑色金属冶炼和压延加工业,上涨2.1%,比上月扩大1.6个百分点;石油、煤炭及其他燃料加工业,上涨1.7%,扩大0.8个百分点。化学原料和化学制品制造业价格由降转升,上涨0.6%。

    08:00
  • 【日本经济已重回增长轨道】日本政府公布的数据显示,第二季度经济扩张速度明显快于最初估值,因企业在劳动力严重短缺的情况下支出超预期。第二季度日本经济折合成年率增长3.0%,高于1.9%的初步估计。经济数据证实,该全球第三大经济体已重回增长轨道。(华尔街日报)

    08:00
  • 工信部:1-7月我国规模以上互联网和相关服务企业完成业务收入4965亿元,同比增长25.9%。

    08:00
  • 【华泰宏观:通胀短期快速上行风险因素主要在猪价】华泰宏观李超团队点评8月通胀数据称,今年二、三季度全国部分地区的异常天气(霜冻、降雨等)因素触发了粮食、鲜菜和鲜果价格的波动预期,但这些因素对整体通胀影响有限,未来重点关注的通胀风险因素仍然是猪价和油价,短期尤其需要关注生猪疫情的传播情况。中性预测下半年通胀高点可能在+2.5%附近,年底前有望从高点小幅回落。

    08:00
  • 【中国信通院:8月国内市场手机出货量同比环比均下降】中国信通院公布数据显示:2018年8月,国内手机市场出货量3259.5万部,同比下降20.9%,环比下降11.8%,其中智能手机出货量为3044.8万部,同比下降 17.4%; 2018年1-8月,国内手机市场出货量2.66亿部,同比下降17.7%。

    08:00
  • 土耳其第二季度经济同比增长5.2%。

    08:00
  • 乘联会:中国8月份广义乘用车零售销量176万辆,同比减少7.4%。

    08:00
  • 央行连续第十四个交易日不开展逆回购操作,今日无逆回购到期。

    08:00
  • 【黑田东彦:日本央行需要维持宽松政策一段时间】日本央行已经做出调整,以灵活地解决副作用和长期收益率的变化。央行在7月政策会议的决定中明确承诺将利率在更长时间内维持在低水平。(日本静冈新闻)

    08:00
  • 澳洲联储助理主席Bullock:广泛的家庭财务压力并非迫在眉睫,只有少数借贷者发现难以偿还本金和利息贷款。大部分家庭能够偿还债务。

    08:00
  • 【 美联储罗森格伦:9月很可能加息 】美联储罗森格伦:经济表现强劲,未来或需采取“温和紧缩”的政策。美联储若调高对中性利率的预估,从而调升对利率路径的预估,并不会感到意外。

    08:00
  • 美联储罗森格伦:经济表现强劲,未来或需采取“温和紧缩”的政策。美联储若调高对中性利率的预估,从而调升对利率路径的预估,并不会感到意外。

    08:00
  • 美联储罗森格伦:鉴于经济表现强劲,未来或需采取“温和紧缩的”政策。

    08:00

推荐阅读