怎么把一个ARRAY[1。。M，1。。N]存到一个文本文件？？？？？(100分)

1

14le

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #1

if SaveDialog1.Execute then ？？

请告诉我，谢谢！（初学，请您尽量详细些，谢谢！）

 

一

一个过客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #2

var f:file;
begin
assignfile(f,'filename.ext');
rewrite(f,1);
blockwrite(f,@array[1,1],xx,.....);

 

W

wmsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #3

141e说清楚些.

 

Z

zzh0918

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #4

var
a:array[1..m,1..n] of integer;
f:textfile;
i,i1:byte;
begin
assignfile(f,'ff.txt');
rewrite(f);
for i:=1 to m do
begin
for i1:=1 to n do
write(f,a[i,i1]);
writeln(f);
end;
closefile(f)
end;
注意:a数组必须先赋值，定义数组时m,n必须为常量

 

Z

zhao0707

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-09

• #5

除了遍历树组，我是想不到其他方法

 

S

shangcm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-09

• #6

同意 zzh0918 写一个循环

 

S

softprince

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-09

• #7

　　如果要保存的文件存在则用AssignFile();
若文件不存在，则需要行建立一个文件．
　　用循环写．　

 

Z

zzh0918

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-09

• #8

TO SOFTPRINCE;
不管文件是否存在，ASSIGNFILE都是必须的，只是后面一句
文件只读 RESET(F);
文件追加 APPEND(F);
新建文件 REWRITE(F);

 

D

danliyou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-08

• #9

我不知道他提问什么？

 

J

Johnqiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-15

• #10

可以用zzh0918的方法不过你最好是添加一些标志来区分数组元素
以便以后可以再读出来
你也可以用tstringlist保存后存进文件