把Integer數組保存到文件、並讀取

　　unit Unit;

　　interface

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

　　type
　 TForm = class(TForm)
　　　 Button: TButton;
　　　 Button: TButton;
　　　 procedure ButtonClick(Sender: TObject);
　　　 procedure ButtonClick(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 TFormButtonClick(Sender: TObject);
var
　 IntArr: TIntArray;
begin
　 SetLength(IntArr );
　 IntArr[] := ;
　 IntArr[] := ;
　 IntArr[] := ;

　　IntArrToFile(IntArr c:temptestnum);
end;

　　{讀取測試}
procedure TFormButtonClick(Sender: TObject);
var
　 IntArr: TIntArray;
　 n: Integer;
begin
　 FileToIntArr(c:temptestnum IntArr);
　 for n in IntArr do ShowMessage(IntToStr(n));
end;

From:http://tw.wingwit.com/Article/program/Delphi/201311/8432.html