Динамические типы в динамическом типе Delphi 7

[Alexandr17]

А как тогда. Все равно место для хранения данных должно быть. Ведь вопросы открываться будут поэтапно

[Stilet]

я попробую массивный рекорд

Открой для себя XML. И забудь про те рекорды, о которых ты говорил.

[min@y™]

А как тогда.

Это ж ООП! Юзай стандартные классы, это сильно упростит задачу и сократит код на порядок.

[Alexandr17]

Сообщение от Stilet

Открой для себя XML. И забудь про те рекорды, о которых ты говорил.

И что. Мне каждый раз вопрос грузить из xml. Посчитай сколько ресурсов будет браться
Либо создания типа загрузки и уничтожения для каждого вопроса (а если их там 100 и для каждого по 10 вариантов ответа или больше)
Либо все грузится 1 раз и хранится в программе. (тоесть в оперативки)
По мне так лучше 2 дабы сыкономить ресурсы.
Темболее xml сложноват. я предпочитаю ini файл.

Сообщение от min@y™

Это ж ООП! Юзай стандартные классы, это сильно упростит задачу и сократит код на орядок.

Я никогда не видил чтобы class был динамическим но дело в том что там процедур и функций не будет. смысла в класах нет если там только одни переменные.

[Stilet]

Мне каждый раз вопрос грузить из xml.

Почему каждый раз? Один раз загрузи и работай.

Посчитай сколько ресурсов будет браться

Сколько?

а если их там 100 и для каждого по 10 вариантов ответа или больше

И что? У меня база в XML более 100МБ. И никаких проблем работы с ней нет.

По мне так лучше 2 дабы сыкономить ресурсы.

Много не сэкономишь. Имей это ввиду.

Темболее xml сложноват.

http://www.programmersforum.ru/showthread.php?p=929158
Не вижу сложностей. Такой же проход по узлам как и в БД как и в ИНИ.

[min@y™]

Либо все грузится 1 раз и хранится в программе. (тоесть в оперативки)
По мне так лучше 2 дабы сыкономить ресурсы.
Темболее xml сложноват. я предпочитаю ini файл.

Xml, ini - это только способы хранения инфы на носителе. Главное - работа с данными в памяти.

Я никогда не видил чтобы class был динамическим но дело в том что там процедур и функций не будет. смысла в класах нет если там только одни переменные.

Рукалицо...

[IliaIT]

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

[саша40]

Лучше всего будет определить все типы(а их всего два: Простые и Дробные числа) в один: Массив байтов. Так как всё в Windows исходит из байтов.

[JUDAS]

Сообщение от Stilet

Открой для себя XML. И забудь про те рекорды, о которых ты говорил.

Однажды попробовал. Загрузил 50 МБ файл и ПК умер, после того технологию XML использую только в исклбчительных случаях.
-------------------
Товарищу автору темы. С динамическими массивами (любой степени вложенности) я работаю уже 11 лет.
Вот тебе примеры

TVertex3d = packed record
  case byte of
   0: (x,y,z :double);
   1: (B,L,H :double);
   2: (dmp : array[0..2] of double;
end;

TMetric = packed record
  Closed : boolean;
  Vertex : array of TVertex3d;
end;
TArrayMetric = array of TMetric;

TAttribute = paced record
  attrType : byte;
  attrName : array[0..31] of char;
  Value      : array[0..127] of char;
end;
TAttributeList = array of TAttribute;

TMapObject = packed record   // объект карты
  name : array[0..31] char; 
  code : array[0..15] char;
  Metric : TArrayMetric;
  Attributes : TAttributeList;
end;
TMapObjectList = array of TMapObject;


Использование

procedure SetVertex(x,y,z : double) : TVertex3d;
begin
  result.x := X;
  result.y := Y;
  result.z := Z;
end;

1. Создание нового объекта
function AddObject(var ObjList : TMapObjectList) : integer;

begin
   SetLength(ObjList, Length(ObjList)+1);
   result := High(ObjList);

  // ObjList[result] наш текущий объект в массиве объектов

   FillChar(ObjList[result] , SizeOf(TMapObject),0);
   SetLength(ObjList[result] .Metric, 2); 

   SetLength(ObjList[result] .Metric[0].Vertex, 4); // контур объекта
   ObjList[result].Metric[0].Vertex[0] := SetVertex(10,2,0);
   ObjList[result].Metric[0].Vertex[1] := SetVertex(6,5,0); 
   ObjList[result].Metric[0].Vertex[2] := SetVertex(12,-4,0);
   ObjList[result].Metric[0].Vertex[3] := SetVertex(9,8,0); 
   Obj.Metric[0].Closed := true;

   SetLength(ObjList[result] .Metric[1].Vertex, 1); // точка вставки подписи объекта
   ObjList[result] .Metric[1].Vertex[0] := SetVertex(20,20,0); 

 
   SetLength(ObjList[result] .Attributes, 2);
   ObjList[result] .Attributes[0].attrType := 12;
   StrPLCopy(ObjList[result] .Attributes[0].attrName, 'название', 31);
   StrPLCopy(ObjList[result] .Attributes[0].Value, 'Здание горсовета', 127);

   ObjList[result] .Attributes[1].attrType := 12;
   StrPLCopy(ObjList[result] .Attributes[1].attrName, 'адрес', 31);
   StrPLCopy(ObjList[result] .Attributes[1].Value, 'ул.Ленина д.2', 127);

end;

2. Очистка  объекта
procedure ClearObject(var Obj : TMapObject);
var i : integer;
begin
  Finalize(Obj.Attributes);
  for i:=0 to length(Obj.Metric)-1 do
    Finalize(Obj.Metric[i].Vertex);
  Finalize(Obj.Metric)l
  FillChar(ObjList[result] , SizeOf(TMapObject),0);
end;

ДЕРЗАЙТЕ !

[JUDAS]

Сообщение от Alexandr17

И что. Мне каждый раз вопрос грузить из xml.
Я никогда не видил чтобы class был динамическим но дело в том что там процедур и функций не будет. смысла в класах нет если там только одни переменные.

я не буду комментировать так как это сделал мой предшественник выше, а задам пару логических вопросов в ответе которых ты заметишь "динамический массив" с классами
1. как устроен чат ?
2. как устроен многонитевой (многопоточный - так понятней начинающим) обработчик файла, например, DownloadMaster ?
3. как устроен вычислитель в сложной системе, который базируется на нескольких ПК ?
4. как устроена СУБД, к которой подключаются дестяки (сотни) сессий?
5. как устроены сервера ?
и.т.п
Вот подумай, как связан управляющее ядро с каждым внешним элементом.