Здравствуйте!!! Помогите пожалуйста решить эту проблему. Я объявляю любой класс, и в нем создаю конструктор и деструктор(внутри класса). А проблема в том, что когда я объявляю констр и дестр и запускаю программу оно выд ошибку
Код:
program Project3;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
TSumma = Class
private
fx: integer;
fy: integer;
fz: integer;
public
constructor Create;
Destructor Destroy;
end;
var v: Summa;
begin
v:=Summa.Create;// выделяется память для объекта v
Summa.Create;// создается конструктор
// который присваивает значение к полю класса Summa
begin
v.fx:=50;
end;
writeln(v.fx);
end.
Админ: Пользуемся тегами для оформления кода!