VPF::почему не работает - Форум программистов

vini

Дата 22.3.2005, 17:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 11.2.2005

Репутация: нет
Всего: нет

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

Код


    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

Это сообщение отредактировал(а) Alex - 23.3.2005, 07:41

vini

Дата 22.3.2005, 17:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 11.2.2005

Репутация: нет
Всего: нет

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

Код


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

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

Код


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

Это сообщение отредактировал(а) Alex - 23.3.2005, 07:42

Гость_Pavel

Дата 23.3.2005, 08:16 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »