Как сахранить и прочитать массив запись ?

[juan666777]

Как читать и записывать в файлы я знаю но когда я записываю динамический массив получается какаято ерунда
Что сдесь не так ?
type
tip=record
x : integer;
y : integer;
z :integer;
color:TColor;
end;
vAR
mas :array of tip;

...
procedure TForm1.ReadTip;
var
f :TFileStream;
str:string;
i :integer;
begin
Form3.ADOTable1.First;
Setlength(mas,Form3.ADOTable1.Recor dCount);
for i:=0 to Form3.ADOTable1.RecordCount-1 do
begin
//Setlength(mas,length(mas)+1);
mas[i].x:= Form3.ADOTable1.FieldValues['x'];
mas[i].y:= Form3.ADOTable1.FieldValues['y'];
mas[i].color:= Form3.ADOTable1.FieldValues['Color'];
mas[i].z:= Form3.ADOTable1.FieldValues['Z'];
Form3.ADOTable1.Next;
end;
f:=TfileStream.Create('Size.dat',fm Create);
f.Write(mas,sizeof(mas));
f.Free;
end;
-----
Procedure TForm1.WriteTip;
var
fs :TFileStream;
str:string;
i :integer;
begin
if FileExists('size.dat') then
begin
fs:=TFIleStream.Create('size.dat',f mOpenread);
fs.Read(mas,sizeof(mas));
fs.Free;
end;
end;

[_Engine_]

Ну, наверное писать надо так:

f.Write(mas, sizeOf(tip)*Length(mas)).

А про чтение додумывай сам

[juan666777]

Не получается чтение

[mihali4]

type
tip=record
x : integer;
y : integer;
z :integer;
color:TColor;
end;

Выделенное красным вызывает у меня жуткое сомнение в правомерности. Каждый Color имеет числовой эквивалент... То есть - "integer".

[BOBAH13]

mas :array of tip;

Что такое динамический массив ? Если вы сможете ответить, тогда и вопросы отпадет...

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

Length(Mas) * SizeOf(TypeOfMas)

ну это примени только к данному коду
2. Массив - статистический, это адресс на начало "куска" памяти, вашего массива, так что когда вы пишите *Write(Mas, SizeOf(mas)... то все нормально.
3. Массив - динамический, это адресс на начало "куска" памяти, НО, именно адресс, динамический, т.е. при компиляции компилятор, компоновщик и другой инструментарий незнает, какое значение имеет этот адрес, значит и ведет он себя подругому. Тогда, после вызова SetLength вы выделяете "кучу" для вашего массива, и тогда "переменная" вашего массива будет содержать адресс вашей "кучи". Тогда *Write(Pointer(Mas)^, Length(Mas) * SizeOfMasElement...

Или же чтобы привести к виду статистического массива. надо всеголишь использовать не Mas а Mas[0] Т.е. прямой адресс на первый элемент массива, "кучи".