Pascal!!! [Win95/98]
Talvin © (2002-05-07 23:56:00)
Приветствую вас Мастера, подскажите пожалуйста как в паскале
сохранять и считывать Двумерные масивы в файлах? Плизззз!
BAHO (2002-05-08 00:16:00) [1]
Попробуй так...
не гарантирую что будет работать
но идея правильная...
Запись
var
Arr:Array[0..3,3..7] of integer;
f:file of тип массива
i,j:integer;
begin
assignfile(f,имя файла);
if fileexists(имя файла)
then reset(f)
else rewrite(f);
for i:=0 to 3
do for j:=3 to 7
do write(f,Arr[i,j]);
closefile(f);
Чтение
var
Arr:Array[0..3,3..7] of integer;
f:file of тип массива
i,j,m:integer;
begin
assignfile(f,имя файла);
if fileexists(имя файла)
then reset(f)
else rewrite(f);
seek(f,0); m:=0
for i:=0 to 3
do for j:=3 to 7
do
begin
read(f,Arr[i,j]);
m:=m+1;
seek(f,m);
end;
closefile(f);
Наверх 
ЧАТ |
Орешник |
|
