知识大全把Integer数组保存到文件、并读取

Posted 2022-07-22 文件

篇首语：博观而约取，厚积而薄发。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全把Integer数组保存到文件、并读取相关的知识，希望对你有一定的参考价值。

把Integer数组保存到文件、并读取 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　unit Unit ;

　　interface

　　uses　 Windows Messages SysUtils Variants Classes Graphics Controls Forms 　 Dialogs StdCtrls;

　　type　 TForm = class(TForm)　　　 Button : TButton;　　　 Button : TButton;　　　 procedure Button Click(Sender: TObject);　　　 procedure Button Click(Sender: TObject);　 end;

　　var　 Form : TForm ;

　　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( );　 AssignFile(IntFile FileName);　 Reset(IntFile);

　　while not Eof(IntFile) do　 begin　　　 SetLength(ns Length(ns)+ );　　　 Read(IntFile ns[High(ns)]);　 end;

　　CloseFile(IntFile);　 Result := Length(ns);end;

　　写入测试procedure TForm Button Click(Sender: TObject);var　 IntArr: TIntArray;begin　 SetLength(IntArr );　 IntArr[ ] := ;　 IntArr[ ] := ;　 IntArr[ ] := ;

　　IntArrToFile(IntArr c:temptest num );end;

cha138/Article/program/Delphi/201311/8432

知识大全 把Integer数组保存到文件、并读取

知识大全把Integer数组保存到文件、并读取