zoukankan      html  css  js  c++  java
  • Delphi 文件操作(4)Reset

    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.
  • 相关阅读:
    day 29-2 socket 文件传输、udp协议
    day 29-1 socket
    day 28-1 元类、异常处理
    day 27-1 反射、内置方法
    day 26-1 property、绑定与非绑定方法
    day 25-1 接口类、抽象类、多态
    day 24-1 继承
    day 23-1 类的命名空间、组合
    day 22
    PyMySQL操作mysql数据库(py3必学)
  • 原文地址:https://www.cnblogs.com/qi123/p/6297857.html
Copyright © 2011-2022 走看看