zoukankan      html  css  js  c++  java
  • 把 Integer 数组保存到文件、并读取

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    type
      TIntArray = array of Integer;
    
    {把 Integer 数组写入文件的函数}
    function IntArrToFile(ns: TIntArray; FileName: string): Boolean;
    var
      IntFile: file of Integer;
      n: Integer;
    begin
      try
        AssignFile(IntFile, FileName);
        if FileExists(FileName) then Reset(IntFile) else Rewrite(IntFile);
        Seek(IntFile, FileSize(IntFile));
        for n in ns do Write(IntFile, n);
        Result := True;
      finally
        CloseFile(IntFile);
      end;  
    end;
    
    {读取的函数}
    function FileToIntArr(FileName: string; var ns: TIntArray): Integer;
    var
      IntFile: file of Integer;
    begin
      if not FileExists(FileName) then Exit(0);
      AssignFile(IntFile, FileName);
      Reset(IntFile);
    
      while not Eof(IntFile) do
      begin
        SetLength(ns, Length(ns)+1);
        Read(IntFile, ns[High(ns)]);
      end;
    
      CloseFile(IntFile);
      Result := Length(ns);
    end;
    
    {写入测试}
    procedure TForm1.Button1Click(Sender: TObject);
    var
      IntArr: TIntArray;
    begin
      SetLength(IntArr, 3);
      IntArr[0] := 111;
      IntArr[1] := 222;
      IntArr[2] := 333;
    
      IntArrToFile(IntArr, 'c:\temp\test.num');
    end;
    
    {读取测试}
    procedure TForm1.Button2Click(Sender: TObject);
    var
      IntArr: TIntArray;
      n: Integer;
    begin
      FileToIntArr('c:\temp\test.num', IntArr);
      for n in IntArr do ShowMessage(IntToStr(n));
    end;
    
    end.
    
  • 相关阅读:
    telegraf、influxDB、Grafana的安装与基本使用
    influxdb简单使用
    keepalived 配置文件参数详解
    haproxy acl访问限制IP
    Linux ------清除内存中的cache
    Linux释放内存空间
    火狐添加消息头 Modify Header Value (HTTP Headers)
    maven 安装jar包
    获取mapper
    root of factory hierarchy
  • 原文地址:https://www.cnblogs.com/del/p/1435907.html
Copyright © 2011-2022 走看看