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

[anaschu]

Хелп! вот тут в ветке "Я_не_понял,_как_работать_с_пашиной _структурой,_потому_делаю_свои_клас сы"
git@gitlab.com:anaschu/social3.git
У меня проблема.

внутри класса Tcell есть Tlist Popul, а он состоит из обьектов класса Human. внутри Human есть рекорд "Генотип" класса Rгенотип

public type
    RGenotype = record
    Genotype: RGenotype;

Внутри процедуры TCell.AddHuman возникает проблема.

procedure TCell.AddHuman overload;
var
  i: byte;
  //procedure getGen
begin
  for i := 0 to 1 do
  begin
    Popul.Add(new(Human));
    Popul.Last.Genotype.Agress := 5;

Там где жерное ошибка.

Класс Human наследует класс Animal

type
  TAnimal = class
  public const
    Hungry = 1;
  public type
    RGenotype = record

этот рекорд Генотип почему то не хочет заполняться. В данном случае не хочет туда ставить пятёрку. чё енто такое? Прога есть пока тока в гите, сюда она загружаться не желает. инет так себе.
Вот дропбокс.
https://www.dropbox.com/s/rdy7of7cwz...n_3.2.rar?dl=0

[northener]

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

Там где жерное ошибка.

А само сообщение об ошибке очень трудно было привести?
И нафига вы даёте ссылку на дропбокс? Всё можно прикрепить к сообщению стандартным инструментарием форума.

[anaschu]

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

стандартным инструментарием

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

сюда она загружаться не желает. инет так себе.

акцесс виолейшн. рекордс не заполняется. я это упомянул: "этот рекорд Генотип почему то не хочет заполняться. В данном случае не хочет туда ставить пятёрку. "

[evg_m]

https://programmersforum.ru/showpost...3&postcount=23
последние две строки.
проверять
и Last
и Genotype
P.S.

(Popul.Last as THuman).Genotype

классы(экземпляры) НЕ создаются с помощью new
объекты(ЭКЗЕМПЛЯРЫ классов) создают с помощью конструкторов

r:=THuman.Create;
r.Genotype.....
popul.Add(r);

[anaschu]

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

классы(экземпляры) НЕ создаются с помощью new

это приводит к не созданию обьекта или к ошибкам в его работе?

[anaschu]

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

r:=THuman.Create;
r.Genotype.....
popul.Add(r);

чё то у меня генетическая неспособность инициировать обьекты. ну ок. вот сделал точно так, и
[dcc32 Error] Cell.pas(110): E2010 Incompatible types: 'Human' and 'THuman'

procedure TCell.AddHuman overload;
var
  i: byte;
  hum:THuman;
  //procedure getGen
begin
  for i := 0 to 1 do
  begin
    hum:=THuman.Create;
    with Hum.Genotype do
    begin
      Agress := 5;
      Attract := 5;
      Coop := 5;
      Altr := 5;
      Strange := 5;
      Rank := 5;
    end;
    Popul.Add(Hum);
  end;
  Popul.First.Genotype.Sex := True;
  Popul.Last.Genotype.Sex := False;
  if Popul.Last.Genotype.Sex then
    BySex.Insert(0, Popul.Count - 1)
  else
    BySex.Insert(BySex.Count - 1, Popul.Count - 1);
end;

end.

[p51x]

Так у вас два класса Human и THuman...

[anaschu]

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

Human и THuman...

Human = ^THuman

[evg_m]

1. TList для хранения наследников TObject(объектов) == TObjectList

2.

Human = ^THuman

значит как минимум @r; (только на основе приведенной цитаты, без анализа кода!!!)
или же наоборот xxx^;
но лучше воспользоваться п.1.

[anaschu]

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

TList для хранения наследников TObject(объектов) == TObjectList

то есть дженерик не подходит?