[FERNANDO]

Здравствуйте!!! Помогите пожалуйста решить эту проблему. Я объявляю любой класс, и в нем создаю конструктор и деструктор(внутри класса). А проблема в том, что когда я объявляю констр и дестр и запускаю программу оно выд ошибку

Код:

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.

Админ: Пользуемся тегами для оформления кода!