怎样对动态整型数组进行读写文件的操作？(100分)

B

btv6

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-11

• #1

在程序中当一个动态整型数组的长度和数组元素值都确定后，怎样将其写入文件并读取？

 

C

chenxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-11

• #2

利用循环用fwrite和fread读写。
或者用ini file格式

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-11

• #3

转换成字符型操作
ini是一个好方法：）

 

P

Pearl.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-11

• #4

写入：
fileid := filecreate('aaa.dat');
filewrite(fileid, arr[0], (high(arr)+1)*sizeof(integer));
fileclose(fileid);

读取：
fileid := fileopen('aaa.dat', fmOpenRead);
l := fileseek(fileid, 0, 2);
setlength(arr, l div sizeof(integer));
fileseek(fileid, 0, 0);
fileread(fileid, arr[0], l * sizeof(integer));
fileclose(fileid);

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-11

• #5

写入如楼上所言，也可用for循环写：
var arr:array[0..19] of integer;
f:system.textfile;
i:integer;
begin
AssignFile(f,'test.text');
Rewrite(f);
for i:=0 to Hign(arr)-1 do
Writeln(f,inttostr(arr));
end;

 

B

btv6

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #6

多人接受答案了。