Создаю видеокурс по созданию "клеточного автомата" на дельфи. Математическая модель общества

[anaschu]

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

	
	
property Cell: TCell read FCell;
if ((ACol=4)and(ARow=4) and (Model.Field[ACol, ARow].exist)) then begin
[dcc32 Error] Unit2.pas(80): E2149 Class does not have a default property

Думал, потому , что в одном юните у меня подключено Grids, а в другом Vcl.Grids . Но нет, это не влияет.

Постараюсь вечером разобратся.
Вдруг у кого нибудет такое же?
Ошибка coreID250.bpl

Error creating form

хотя вроде бы конструктор формы у меня есть. я в прошлых версиях посмотрел, создание формы само собой вызввается. Вроде бы как никакой перевенной эту форму приравнивать не надо по типу:

FOrm:tform

form:=create

Пока попробую двигатся без разбиения на юниты на старых версиях, а то застрял уже на полторы недели из-за ООП

[Аватар]

form:=tform.create(Application)

[anaschu]

Сообщение от Аватар

form:=tform.create(Application)

да вроде у меня проблема с дельфи из за антивируса. Буду переустанавливать. потом попробую этот метод ваш

[anaschu]

Сообщение от Аватар

form:=tform.create(Application)

а куда это вставлять ? сюда:

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm2, Form2);
  
  Application.Run;
end.

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

[Аватар]

Application.CreateForm(TForm2, Form2);
и есть аналог
Form2:=TForm2.Сreate(Application)
во втором случае обычно при динамическом создании формы

[anaschu]

Сообщение от Аватар

Form2:=TForm2.Сreate(Application)

эта штука уже была в проекте. видать, все таки неполадки в виндоус и дельфи. придеться переустанавливать. Есет антивир там наколбасил, у меня слетела лицензия ибо

[anaschu]

не помогла переустановка. те же самые ошибки

program L06_04;

uses
  Forms,
  Unit2 in 'Unit2.pas' {Form2},
  Umodel in 'Source\Umodel.pas',
  UField in 'Source\UField.pas',
  Ucell in 'Source\Ucell.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm2, Form2);
  Form2:=tform2.create(Application) ;
  Application.Run;
end.

[Аватар]

Аналог не значит, что дважды одну и ту же форму создавать нужно )

property Cell: TCell read FCell;
if ((ACol=4)and(ARow=4) and (Model.Field[ACol, ARow].exist)) then begin
[dcc32 Error] Unit2.pas(80): E2149 Class does not have a default property

E2149 Class does not have a default property

всего лишь Field не индексируемое свойство

[leoparrd]

anaschu
Вы меня так назойливо игнорируете. опомнитесь пока не поздно. Если вы хотите создать видеокурс... То как вы можете это сделать, если сами ничего не знаете и не умеете. У вас в голове каша, судя по постам...

[Pavia]

19.1. - скачал.

1. procedure FormCreate(Sender: TObject);
Неправильно указана область видимости. Она должна объявляться как private а у вас public.

2.

procedure Tmodel.DoStep(step: Integer);
..
   Ffield.create(i,j);

Тут явно ошибка. Конструктор можно вызывать у класса, а не у его объекта. И плюс данная строчка обнуляет размер массива.

3. Все эксперименты которые закомментированы стереть. Просто они вас будут путать мешать вам.