Обнуление параметров класса

[DarkSmile]

Здравствуйте! Столкнулся с такой непонятной проблемой, имеются классы:

TEeventParam = class(TStringList)
    public
      ProcName: string;
      vars: TStringList;
      constructor Create; virtual;
  end;

  TCodeEvent = record
    public
      _OnShanage:   TEeventParam;
      _OnClick:     TEeventParam;
      _On2xClick:   TEeventParam;
      _OnClose:     TEeventParam;
      _OnCloseQuery:TEeventParam;
      _OnCreate:    TEeventParam;
      _OnAktivate:  TEeventParam;
      _OnDeaktivate:TEeventParam;
      _OnShow:      TEeventParam;
      _OnHide:      TEeventParam;
      _OnResize:    TEeventParam;
      _OnPaint:     TEeventParam;
      _OnKeyUp:     TEeventParam;
      _OnKeyDown:   TEeventParam;
      _OnDownMause: TEeventParam;
      _OnUpMause:   TEeventParam;
      _OnMoveMouse: TEeventParam;
      _OnLeaveMouse:TEeventParam;
      _OnSelect:    TEeventParam;
  end;

  TSelectComp = class
    public
      NumEvent: Integer;
      CodeEvent: TCodeEvent;
      CompEvents: TCompEvents;
      constructor Create; virtual;
  end;

Мне нужно определять какие из переменныхTCodeEvent равны nil, делаю это так:

 if TSelectComp(SelectedComponent).CodeEvent._OnShanage = nil then
    ShowMessage('is nil');
 end;

И так с каждой переменной. Изначально все переменные TCodeEvent должны равняться nil, но по какой то не понятной мне причине, некоторые из переменных не равны nil.
Delphi показывает:


Скажите пожалуйста почему так то? У меня уже не осталось идей как их обнулить при создании

[Stilet]

Ну а ты опиши конструктор, в котором будет обнуление.

[DarkSmile]

Да я делал так

constructor TSelectComp.Create;
begin
   inherited Create;
   CompEvents:= TCompEvents.Create;
   CodeEvent._OnShanage := nil;
   CodeEvent._OnClick := nil;
   и т.д.
end;

Но ему на это пофиг

[ReportCube]

Ничего не путаете? TCompEvents - это что-то другое, Вами не описанное

[DarkSmile]

Ой да имена попутал, но фак в том что не обнуляет

[phomm]

OnShanage
OnAktivate
OnDeaktivate
OnDownMause
OnUpMause

Engrish

Скорее всего, проблемы из-за того, что TCodeEvent - запись (record). Я бы на Вашем месте сделал классом - всё равно Вы вызываете конструктор (хоть и у ошибочно Вами указанного типа TCompEvents, я полагаю Вы подразумевали именно TCodeEvent). У класса гарантированно все поля инициализируются в nil (0 и т.д.), у записи не помню чтобы была гарантия.

[DarkSmile]

Сделал классом, теперь все переменные имеют значение

[ReportCube]

Неверный код, показывайте - как делали. Чудес не бывает, поверьте...

[DarkSmile]

Заменил record на class

TCodeEvent = class
      _OnShanage:   TEeventParam;
      _OnClick:     TEeventParam;
      _On2xClick:   TEeventParam;
      _OnClose:     TEeventParam;
      _OnCloseQuery:TEeventParam;
      _OnCreate:    TEeventParam;
      _OnAktivate:  TEeventParam;
      _OnDeaktivate:TEeventParam;
      _OnShow:      TEeventParam;
      _OnHide:      TEeventParam;
      _OnResize:    TEeventParam;
      _OnPaint:     TEeventParam;
      _OnKeyUp:     TEeventParam;
      _OnKeyDown:   TEeventParam;
      _OnDownMause: TEeventParam;
      _OnUpMause:   TEeventParam;
      _OnMoveMouse: TEeventParam;
      _OnLeaveMouse:TEeventParam;
      _OnSelect:    TEeventParam;
  end;

В конструктор TSelectComp добавил создание CodeEvent

constructor TSelectComp.Create;
begin
   inherited Create;
   CompEvents := TCompEvents.Create;
   CodeEvent  := TCodeEvent.Create;
end;

[ReportCube]

Замечательно. А теперь поставьте точку останова на выходе из конструктора и посмотрите в отладчике свойства всех элементов CodeEvent.