вопрос по Tlist и Generics.Collections и records

[anaschu]

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

только на основе приведенной цитаты

мой интернет не позволит на форум закинуть исходники напрямую. только через дропбокс. Я тут в деревне еще полтора месяца.

Кстати, не понимаю, в чем сложность скачать с дропа. Вроде как я на форуме с 2012 года, вирус кидать во вложения не буду, да и защита от вирусов в дропе на порядок сильнее, чем тут на форуме.
Кому не нравится дроп- в первом посте я дал ssh ссылку на Гит

[anaschu]

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

@r;

ну, это вот гораздо короче путь, его попробовал для начала, помогло именно для этой ошибки и до конца процедуры никаких ошибок не было, ошибки пошли дальше.

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

"First chance exception at $7674C5AF. Exception class EArgumentOutOfRangeException with message 'Argument out of range'. Process Project1.exe (4516)"

Ошибка эта вот тут.

procedure TListHelper.InternalInsert4(AIndex: Integer; const Value);
begin
  CheckInsertRange(AIndex);

Ну буду пока разбираться с этим, потом пробовать пункт 1, просто для этого придеться перелопачивать весь код. да и код не мой, владелец ревниво относится к своему "творчеству" по дженерик колекшион. Хочеться ему эту дженерик

[evg_m]

ну, это вот гораздо короче путь,

есть еще и третий путь.
ВСЯ работа с объектами(экземплярами классов) в Delphi и так ведется с указателями и дополнительные указатели ни к чему.
поэтому можно и нужно отказаться от

Numan =^THiman

и везде работать исключительно с THuman.
что и было предложено в самом начале.(до обнародования сведений о Human)

[anaschu]

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

значит как минимум @r;

а что делает значок собака? Это указатель?

[anaschu]

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

поэтому можно и нужно отказаться от

у меня без этого Tlist не создается
Если в Popul := Generics.Collections.TList<Human>.C reate;
Вместо Human написать THuman, будет ошибка
[dcc32 Error] Cell.pas(77): E2003 Undeclared identifier: 'TList'

[anaschu]

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

его попробовал для начала, помогло именно для этой ошибки

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

[anaschu]

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

его попробовал для начала, помогло именно для этой ошибки

не помогло. У меня как было выпадение данных в рекорд. так и осталось. Пришлось идти на крайние меры.

А то что за ерунда:
нажимаю кнопку заполнение поля - запускается роцедура инит- в ней заполняется "дженерк лист Popul" людьми через TCell.AddHuman, в которой используется THuman.Create.

Процедура TCell.AddHuman заполняет Popul обьектмми Thuman.
конкретно внутри Thuman есть поле "генотип". внутри процедуры генотип сохраняется, но потом, уже после процедуры, он исчезает.

, при этом всё это через значки ^ @ <>, значения которых я не понимаю. Крышечка, собачка, раскосые глазки...какая то китайская кухня!


Короче, пришлось из cell половину переносить в face, вспомогательные функции прямо внутрь основных, иначе фиг работает.
Там что то с экземплярами классов, отношениями между ними и прочей мутотени при дженерал колекшион


терь у меня одна процедура на 200 строк.