Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > почему не работает

Автор: vini 22.3.2005, 17:22

пишу следующий код

Код


    pElement = ^TElement;
    TElement = record
        N : integer;

       pNext : pElement;
       pPrev : pElement;
    end;//record
//--------------------------------------------------------------------------
    pMnojestvo = ^TMnojestvo;
    TMnojestvo = class
        name : integer;
        ntek : longint;

        pBegEl, pEndEl, pCurEl : pElement;

        pNext : pMnojestvo;
        pPrev : pMnojestvo;
    //------------------------------------
    Constructor init;
      end;//class
//--------------------------------------------------------------------------
      TCtrl = class

    pBegMnoj,pEndMnoj,pCurMnoj : pMnojestvo;

    //-----------------------------------------
    Constructor init1;
    Procedure Add(pMnojInfo : pMnojestvo);
   
    end;//class TCtrl
var
  fMain: TfMain;
  Ctrl1 : TCtrl;

implementation

uses uAdd;
Constructor TCtrl.init1;
begin
    pBegMnoj := NIL;
    pEndMnoj := NIL;
    pCurMnoj := NIL;
end;

{Constructor TMnojestvo.init;
begin
    pBegEl := NIL;
    pEndEl := NIL;
    pCurEl := NIL;
    ntek := 0;


end;//constructor

и потом вызываю конструктор в обработчике FormCreate вот так

Код


procedure TfMain.FormCreate(Sender: TObject);
begin
   
    Ctrl1.init1;
 
end;

у меня прога вылетает с ошибкой, Access violetion at adress FFFFFFFF...

в чём я ошибся???

Прошу помочь!!! smile

Автор: vini 22.3.2005, 17:41

Я ступил я знаю и уже сам разобрался где так что тему можно закрывать!!!

Код


procedure TfMain.FormCreate(Sender: TObject);
begin
    Ctrl1.init1;
end;

а должно было быть

Код


procedure TfMain.FormCreate(Sender: TObject);
begin
   Ctrl1 := TCtrl.init1;
end;

Автор: Гость_Pavel 23.3.2005, 08:16

После компиляции в Delphi7 появилась такая ошибка "Исключение неизвестное программное исключение (0x0eedfade) в приложении по адресу 0x7c81eb33"
Как это исправить?