Это писалось навскидку, так что должны быть глюки...
Запись:
| Код | var
s : TFileStream;
i : integer;
begin
s := TFileStream.Create('c:\config_cgf.cfg', fmCreate);
// Запись objects0
i := Length(objects0);
s.Write(i, SizeOf(i));
s.Write(objects0[0], SizeOf(Tobj0Vector)*Length(objects0));
// Запись objects1
i := Length(objects1);
s.Write(i, SizeOf(i));
s.Write(objects1[0], SizeOf(Tobj1Vector)*Length(objects1));
// Запись objects2
i := Length(objects2);
s.Write(i, SizeOf(i));
s.Write(objects2[0], SizeOf(Tobj2Vector)*Length(objects2));
// Запись моделей, на которые идут ссылки из массива objects2
for i := 0 to Length(objects2)-1 do objects2[i].Model.SaveToStream(s);
s.Free;
end; |
Чтение:
| Код | var
s : TFileStream;
i : integer;
begin
s := TFileStream.Create('c:\config_cgf.cfg', fmOpenRead);
// Чтение objects0
s.Read(i, SizeOf(i));
SetLength(objects0, i);
s.Read(objects0[0], SizeOf(Tobj0Vector)*Length(objects0));
// Чтение objects1
s.Read(i, SizeOf(i));
SetLength(objects1, i);
s.Write(objects1[0], SizeOf(Tobj1Vector)*Length(objects1));
// Чтение objects2
s.Read(i, SizeOf(i));
SetLength(objects2, i);
s.Write(objects2[0], SizeOf(Tobj2Vector)*Length(objects2));
// Чтение моделей, на которые идут ссылки из массива objects2
for i := 0 to Length(objects2)-1 do
begin
objects2[i].Model := TModel.Create(...тут ты сам должен знать что писать...);
objects2[i].Model.LoadFromStream(s);
end;
s.Free;
end; |
Только в классе TModel придется добавить два метода в секции Public:
Для записи:
| Код | procedure TModel.SaveToStream(s : TFileStream);
begin
s.Write(CurMesh, SizeOf(CurMesh));
s.Write(TimeIsSet, SizeOf(TimeIsSet));
... // и т.д. записываешь все данные, кроме массивов
s.Write(OwnTexture, SizeOf(OwnTexture));
// Запись массивов
s.Write(TexVertices^, SizeOf(TGLVertex)*TexVCount);
s.Write(TexFaces^, SizeOf(TGLFace)*TexFCount);
end; |
Для чтения:
| Код | procedure TModel.LoadFromStream(s : TFileStream);
begin
s.Read(CurMesh, SizeOf(CurMesh));
s.Read(TimeIsSet, SizeOf(TimeIsSet));
... // и т.д. записываешь все данные, кроме массивов
s.Read(OwnTexture, SizeOf(OwnTexture));
// Выделение памяти под массивы
GetMem(TexVertices, SizeOf(TGLVertex)*TexVCount);
GetMem(TexFaces, SizeOf(TGLFace)*TexFCount);
// Чтение массивов
s.Read(TexVertices^, SizeOf(TGLVertex)*TexVCount);
s.Read(TexFaces^, SizeOf(TGLFace)*TexFCount);
end; |
Для Mesh : TList - сам сделаешь, т.к. так и не написал, что это такое... |
Ну что я могу ответить.... нету у меня ничего похожего на них только есть такие строчки:
?