p0s0l Ты забыл еще спросить, - а надо ли ему это вообще... Судя по публикациям classes.pas и усмешкам - не очень то и надо.

Просто Sniper никак не хочет понять, что от него хотят...
Это моя последняя попытка: "Снайпер, скажите нам, НА ЧТО же всё-таки ССЫЛАЮТСЯ те самые указатели из TLIST ? Т.е. распишите те типы структур/объектов на которые ссылается этот TList."

Цитата(Sniper @ 29.10.2003, 15:33)

Vit Это надо p0s0l спросить! %-) что в этом коде его смущает! Он просил: расписать TList - я выполнил его просьбу! %-)

Похоже вы не поняли, что он от Вас хочет. Для программиста на Дельфи модуль classes.pas и классы в нём прописанные, всё равно что 4 арифметических действия для математика - зная уровень p0s0l я не сомневаюсь, что он прекрасно осведомлён и о модуле classes.pas и о классе TList, поэтому попытайтесь понять те вопросы, которые Вам задают и ответить на них, проблема в Вашем понимании задачи, а не понимании нами этого модуля и класса TList. (без обид, Вам действительно хотят помочь, но к сожалению мы должны понять ЧТО именно надо).

Я понимаю и ценю вашу помощь!

Но я, как сказал Vit, не понимаю что вам дать чтобы вы мне помоги! :-(((((
p0s0l поверь я хочу тебе сказать на что они указываю.... знать бы только как!!
(у меня проект стоит! из-за моей тупизны :-(

публикую все типы которые содержатся в модуле model.pas

Код

Type    PGLVertex = ^TGLVertex;    TGLVertex =    record      x,y,z : glfloat;    end;    PGLVector = ^TGLVector;    TGLVector = array[0..2] of glfloat;    PGLFace   = ^TGLFace;    TGLFace   = array[0..2] of word;    PGLVertexArray = ^TGLVertexArray;    TGLVertexArray = array[Word] of TGLVertex;    PGLFacesArray  = ^TGLFacesArray;    TGLFacesArray  = array[word] of TGLFace;    TGMD = class;    TGMDMesh =    class      Vertices,                       // Массив вершин      FasetNormals,                   // Массив фасетных нормалей      SmoothNormals : PGLVertexArray; // Массив сглаживающих нормалей      Faces         : PGLFacesArray;  // Массив граней      Parent        : TGMD;    private      procedure Draw;    public      destructor Destroy; override;    end;    TGMD = class      Meshes         : TList;          // Сетки      CurMesh        : word;           // Текущий кадр      TexVertices    : PGLVertexArray; // Массив вершин текстуры      TexFaces       : PGLFacesArray;  // Массив граней текстуры      {animation speed}      TimeIsSet      : boolean;      TimeEnd        : dword;      {model info}      MeshCount,                  //meshes count      MeshVCount,                 //mesh vertices count      MeshFCount     : word;      //mesh faces count      isFaset,                    //1=faset normals was included      isSmooth       : byte;      //1=smooth normals was included      TexVCount,                  //tex vertices count      TexFCount      : word;      //tex faces count      IsOwnTexture   : byte;      //1=texture file was included      {}      OwnTexture     : gluint;    //use if texture file included    public      procedure SaveToStream1(s : TFileStream);      procedure LoadFromStream1(s : TFileStream);      function    LoadFromFile(FileName,ModelName:String):boolean;      procedure   Draw(StartMesh,EndMesh:word; mps:byte);      constructor Create;      destructor  Destroy; override;    end;

Там дальше по тексту пишу:
Meshes := TList.Create;

Я кажись начинаю понимать, что вам нужно! :-)
вот например:
TexFaces : PGLFacesArray; но PGLFacesArray указывает на ^TGLVertexArray который в свою очередь указывает на array[Word] of TGLVertex; а тот на

TGLVertex = record
x,y,z : glfloat;
end;
так вам нужно вот такое же как эта цепочка, только про TList? Я правильно понял? Если да то для TList ТАКОЙ ЦЕПОЧКИ НЕТ! :-( Он просто берётся из этого ...... classes.pas Тьфу!

Это сообщение отредактировал(а) Sniper - 30.10.2003, 20:46

Sniper Смотри, указатели могут ссылаться на данные разных типов. К примеру, в TList могут быть указатели на тип integer( PInteger), а могут и на целые структуры:

Код

PSomeRec = ^TSomeRec; TSomeRec = record   Field1:Byte;   Field2:Word;   Field3:string[10];  end;

Так вот у тебя пытаются выяснить на какой тип данных указывают указатели в TList?? Или они у тебя вообще не типизированные(Pointer)?

К примеру, если бы в TList "сидели" PInteger, то запись могла бы быть примерно такой

Код

for i:=0 to List.Count-1 do  Запись значения PInteger(List.Items[i])^

Это сообщение отредактировал(а) <Spawn> - 30.10.2003, 23:09

<Spawn> понятно! Ну что я могу ответить.... нету у меня ничего похожего на них только есть такие строчки:

Meshes.Add(ogmd_NextMesh);
TGMDMesh(Meshes.Items[CurMesh]).Draw;

for i:=0 to Meshes.Count-1 do TGMDMesh(Meshes.Items[i]).Destroy;

Больше в модуле нигде не встречается Meshes
а TList описан в classes.pas.... а как уж в этом модуле идут ссылки всем известно!

Посмотри какой тип у переменной ogmd_NextMesh - судя по смыслу должно быть TGMDMesh...
Если это так, то тут возникают трудности:
у TGMDMesh есть ссылки на массивы Vertices, FasetNormals, SmoothNormals, Faces, но нет ничего, что могло бы помочь узнать размеры этих массивов - следовательно по той приведенной части кода запись/чтение сделать скорее всего невозможно.
Было бы легче, если бы ты показал метод LoadFromFile, наверняка там эти массивы заполняются...

Это сообщение отредактировал(а) p0s0l - 30.10.2003, 23:26

p0s0l Хм, я что то не понимаю или ты не обратил внимания, но TGLVertex имеет размер 65536 (SizeOf(Word)) структур, содержащих 3 значения типа Float(в OpenGL почти ко всем типам приделаны приставки gl).

Sniper, не надо, ничего не смотри, я протормозил - в TList'е однозначно хранятся переменные типа TGMDMesh (либо его наследники, но это маловероятно, тем более ты привел все типы из того модуля)...

<Spawn>, так вообще-то и делают... Можно было описать TGLVertexArray как array [0..0] of TGLVertex - ничего бы не изменилось. Вернее в последнем варианте с включенной опцией Range Checking вывалилась бы ошибка при обращении, например, к элементу [1]. Но она обычно выключена (по умолчанию).
Просто реальный размер массива задаётся при выделении памяти:
var p : PGLVertexArray;
GetMem (p, 1024*SizeOf(TGLVertex)); // это массив из 1024 элементов

p0s0l
я сделал так s.Write(Meshes, SizeOf(TList));
и 60kb в файле файле конфигурации прибавилось, а было 40 байт! %-)
Я чувстую что я правильно сделал!?

p0s0l
я сделал так s.Write(Meshes, SizeOf(TList));
и 60kb в файле файле конфигурации прибавилось, а было 40 байт! %-)
Я чувстую что я правильно сделал!?

Sniper На этот раз предчувствия тебя обманывают...

SizeOf(TList))=SizeOf(TForm)=SizeOf(T_Что_угодно_порожденное_от_TObject)=4. Везде. Даже если Папа Римский наберет сейчас дрожащими руками в католическом Delphi "writeln(SizeOf(TList))", то сниспослано ему в ответ будет число 4. И это правильно. И это можно не знать, а нужно просто помнить. Как 2х2.

А передачу Meshes в качестве параметра на запись - обязательно надо предложить Borland'у. А то понагородили тут какие-то RTTI, {M+}, TPersistent, TWriter, TReader... Попутно выдумали "проблему сохранения и восстановления классов" на нашу голову... А ее, оказывается, нет - сохраним 4 байта адреса из Heap - и хватит. Но! Главное - не выдать врагу этот метод! Пусть это будет нашим секретом.

Резюме: ответ отрицательный.

Dmitry V.Abramov Но у меня файл весит не 4 байта, а 60KB!!!!
Что же он тогда сохраняет?

Sniper, дак ведь ты не один меш сохраняешь в файл ? Из-за этого и получается такой размер...