как загружать из внешнего файла в масив и обратно.

← →
hex_for_delphi (2003-06-24 00:37) [0]

как загружать из внешнего файла в масив и обратно? ну предположим я сохранить то содержимое масива могу в string а его уже в тектовый документ а как наоборот ?

← →
Palladin © (2003-06-24 00:47) [1]

var
mas:array [1..10] of integer;

procedure SaveMassiv
var
f:file;
begin
assignfile(f,"о боже.массив");rewrite(f,1);
blockwrite(f,mas,sizeof(mas));
closefile(f);
end;

procedure LoadMassiv;
var
f:file;
begin
assignfile(f,"о боже.массив");reset(f,1);
blockread(f,mas,sizeof(mas));
closefile(f);
end;

← →
hex_for_delphi (2003-06-24 03:15) [2]

а если массив таков :

type
TAlloder = record
damegepl1:integer;
damegepl2:integer;
ustalostpl1:integer;
ustalostpl2:integer;
dinambyusii:integer;
dinamotbivausii:integer;
end;

var
tablizarachetov: array[0..3,0..3] of TAlloder;

← →
Babay © (2003-06-24 04:42) [3]

Наверное лучше тогда использовать типизированный файл
Например так

procedure SaveMassiv ;
var
f:file of TAlloder;
i,j:Integer;
begin
assignfile(f,"massiv.mms");
rewrite(f);
For I:=0 to 3 do
For J:=0 to 3 do
Write (f,tablizarachetov[i,j]);
closefile(f);
end;

procedure LoadMassiv ;
var
f:file of TAlloder;
i,j:Integer;
begin
assignfile(f,"massiv.mms");
reset(f);
For I:=0 to 3 do
For J:=0 to 3 do
Read (f,tablizarachetov[i,j]);
closefile(f);
end;

← →
Palladin © (2003-06-24 07:59) [4]

> hex_for_delphi (24.06.03 03:15)

а ты попробуй сначала...

← →
Forester © (2003-06-24 08:06) [5]

>>Palladin © (24.06.03 00:47)
маленькая неточность
SizeOf(Mas) вернет размерность массива, а не число занимаемых байт. Логичнее SizeOf(Mas)*SizeOf(integer) или открывать файл
rewrite(f, Sizeof(integer)).

откуда блин такая увереность у всех... я не понимаю... ктото рисованием занимался, а не изучением языка...

как загружать из внешнего файла в масив и обратно. Найти похожие ветки