работа классов в Lazarus

[shentsev]

Пишу:

MyClass = class
mm:integer;
nn:integer;
end;

....

var MyTest:MyClass;
Begin
MyTest.mm=1; {Здесь вылетает с ошибкой Project raised exception class - External:SIGSEGV }
end;
Подскажите в чем причина.

[S!V]

MyTest - указатель на экземпляр класса MyClass.
Он(экземпляр) у тебя не создаётся.
Правильней было бы:

Код: Выделить всё

var
  MyTest :MyClass;
begin
  MyTest := MyClass.create;
  MyTest.mm := 1;
  MyTest.Free;
end;


И ешё, в именах типов принято ставить первую 'T' (TMyClass, например).

[shentsev]

Спасибо, работает.

[SergKam]

человек видно из с++ пришел(или вообще новичек)

[shentsev]

человек видно из с++ пришел(или вообще новичек)

Я лет 5 назад как в паскале работал, но что-то такого не припомню. Необходимость вызова конструктора как и деструктора в явном виде в данном случае для меня далеко не очевидна, тем более что мной он явно не перегружается.

[Sergei I. Gorelkin]

Я лет 5 назад как в паскале работал, но что-то такого не припомню. Необходимость вызова конструктора как и деструктора в явном виде в данном случае для меня далеко не очевидна, тем более что мной он явно не перегружается.

Это относится к объектам, объявленным как object - в Паскале были такие, и до сих пор поддерживаются. Если же тип объявлен как class, вызов конструктора и деструктора обязателен, т.к. именно они обеспечивают создание и удаление экземпляров класса.