Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.20;
Скачать: CL | DM;

Вниз

Pascal!!!   Найти похожие ветки 

 
Talvin ©   (2002-05-07 23:56) [0]

Приветствую вас Мастера, подскажите пожалуйста как в паскале сохранять и считывать Двумерные масивы в файлах? Плизззз!


 
BAHO ©   (2002-05-08 00:16) [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);



Страницы: 1 вся ветка

Текущий архив: 2002.05.20;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
1-64717
Serega B...A...
2002-05-07 01:01
2002.05.20
Как упаковать группу файлов в DLL


3-64519
Alex Spirin
2002-04-22 19:38
2002.05.20
Delphi + Excel = ?


1-64615
kimblch
2002-05-08 03:31
2002.05.20
Случаем никто ФИО программно не склонял????


3-64479
Alexander Vasjuk
2002-04-22 17:09
2002.05.20
Блокировать вставку стрелкой вниз


1-64691
Reticent
2002-05-06 13:33
2002.05.20
2 Формы