c语言读取文件内容 把Integer数组保存到文件、并读取

把Integer数组保存到文件、并读取  

　　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;