把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;

上一篇：字段对象的概念和字段对象的建立

下一篇：创建窗口时出现GetDynaMethod错误