выделение памяти под объект

[VIK_aka_TOR]

[QUOTE=VIK_aka_TOR]приветствую...
у меня есть пару вопросов по выделению памяти под объекты классов, класс сам описываю, компилятор компилирует, но при попытке присвоить какие либо значения экземпляру класса, выскакивают ошибки памяти

---------------------------
Debugger Exception Notification
---------------------------
Project programmka.exe raised exception class EAccessViolation with message 'Access violation at address 00402A11 in module 'programmka.exe'. Write of address 00000004'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

насколько понимаю то это проблемы с выделением памяти под объект

  Tproduct = class    // описываем клас продукции
    Name: string[15]; // наименование продукции
    ZatrEdProd : real; // Затраты на единицу продукции
    PriseEdProd : real;  // Цена на единицу продукции
    V_Prod: array [1..4] of real;  // объем производства продукции
    A_Prod: array[1..5] of real; // объем реализованной продукции
    procedure PutName;     // процедура для записи имени продукта
    procedure PutZatrEdProd;  // процедура для записи затрат на единицу продукциии
    procedure PutPriseEdProd; // процедура для записи цены за единицу продукции
    procedure Put_V_Prod(x: integer);    // процедура для записи объема выпущеной продукции в определенный период
    procedure Put_A_prod(x: integer);   // процедура для записи реализованной продукции  в определенный период
   end;

  Tpredpr = class  // класс предприятия
    RezFin : real;   // резервные фиансовые средства
    Kredit : real;   // кредиты
    ZatrPost : real;  // постоянные затраты
    betta : real;    // налог на прибыль
    product : array [1..5] of Tproduct;
    procedure PutRezFin;  // процедура для записи резервных финансовых средств
    procedure PutKredit; // Процедура для записи кредитов
    procedure PutZatrPost;  // Процедура для записи постоянных затратов
    procedure PutBetta;   // процедура для записи налога на прибыль
  end;

var
  Vvod: TVvod; // наша ворма
  predpr : Tpredpr;  
  j,i1,i2 : integer;

create объекта вызываю при создании формы

procedure TVvod.FormCreate(Sender: TObject);
begin
   predpr := Tpredpr.Create;  // в моем понимании это выделение памяти
end;

predpr.Create; никак не описывал... кампилятор не ругается...

пример процедуры присвоения

procedure Tproduct.PutName;
  begin  // описание процедуры ввода наименования продукции
      Name := Vvod.Edit5.Text;
  end;

вызов процедуры для внесения данных

predpr.product[j].PutName;

что сделать что бы выделялась память под объект класса predpr
как то описать конструктор... или где то в другом месте вызвать predpr := Tpredpr.Create;

[Аватар]

Посмотрите в исходниках дельфей как свойства объектов описываются, как присвоить им значения и считать их. Там же можно найти и примеры с конструкторами и деструкторами

[VIK_aka_TOR]

проюзал весь свой код... установил что переменные класса predpr изменяются на ура (если не трогать вложенный класc product)

predpr.Kredit := 56;

но елси изменить переменные класса product к примеру

predpr.product[2].Name := 'ololo';

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

[Аватар]

Объекты в массиве product не созданы. Объект Tpredpr создаете, а объекты Tproduct не надо?

[VIK_aka_TOR]

ну.. не знаю правильно это или нет но :
добавил

  product : array [1..c] of Tproduct;
  predpr : Tpredpr;
  Vvod: TVvod; // наша форма

и добавил при создании формы

  predpr := Tpredpr.Create;
  for i:=1 to c do
  predpr.product[i] :=  Tproduct.Create;

покуда работает )... спасибо Аватар за своеобразные наставления... теперь запомню этот нюанс... с классом в классе... + )