熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

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

2013-11-11 21:04:45  來源: Delphi編程 

  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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.