客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
procedure Reset(var F [: File; RecSize: Word ] );
{作用： 对于文本文件，Reset过程将以只读方式打开文件，对于类型文件和无类型文件，Reset过程将以可读写方式打开文件
procedure Reset(var F [: File; RecSize: Word ] ); F:File 类型变量，可以是任何文件类型；
RecSize：文件的大小，这个参数是一个可选参数，只有当F为无类型文件时才可以被指定。如果F为无类型文件，则RecSize指定了在数据传输过程中使用的记录的大小。如果参数RecSize被省略了，则默认的记录大小为128字节。
需要注意：
当该过程打开文件时，如果文件不存在则产生异常。如果文件已经打开，则先关闭文件，然后重新打开，将将文件的指针放到文件的开头处（有点像Append只不过他们两是相反的），默认的文件模式（FileMode）为2， 即读写模式。如果文件模式在调用ReSet过程前都没有改变，则尝试打开一个只读文件只失败。当调用ReSet过程后，文件为空，则Eof函数返回True，否则返回False;
}program Tex;
{$APPTYPE CONSOLE} {By:天下第一小贱人} uses Windows; {新建一个TXT文档} Procedure NewTxt(FileName:String); Var F : Textfile; {定义 F 为 Textfile} Begin AssignFile(F,FileName); {将文件名与变量 F 关联} ReWrite(F); {创建Txt文档并命名为 “FileName ” } Closefile(F); {关闭文件 F} End; {读取指定的TXT文档} Procedure ReadTxt(FileName:String); Var F : Textfile; Str : String; Begin AssignFile(F, FileName); Reset(F); Readln(F, Str); {读取内容并赋值给 Str} Closefile(F); End; {先附上原内容在写入新内容} Procedure AppendTxt(Str:String;FileName:String); Var F:Textfile; Begin AssignFile(F, FileName); Append(F); {附上原来的内容以免原内容被清空} Writeln(F, Str); {把内容 Ser 写入文件F } Closefile(F); End; {逐行读取，顾名思义一行一行的读取内容} Procedure ForTxt(FileName:String); Var F:Textfile; S:String; Ser:String; begin AssignFile(F,FileName); Reset(F); while not EOF(F) do {循环读取} begin Readln(F,S); Ser:=Ser+S+#13#10; end; CloseFile(F); end; Begin // NewTxt('i:\我的文档\桌面\Delphi对Txt的基本操作.Txt'); // ForTxt('i:\我的文档\桌面\Delphi对Txt的基本操作.Txt'); // ReadTxt('i:\我的文档\桌面\Delphi对Txt的基本操作.Txt'); // AppendTxt('aaaaaaaaaaaaaaaaa','i:\我的文档\桌面\Delphi对Txt的基本操作.Txt'); Readln; End. |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论