Обнуление параметров класса - Общие вопросы Delphi - Страница 2

DarkSmile · 06.04.2014, 17:28

Чет не ставится

ReportCube · 06.04.2014, 17:35

Ниже создания напишите что-то вроде этого и уже там поставьте точку останова (F5):
if CodeEvent <> nil then
Sleep(0);

DarkSmile · 06.04.2014, 17:59

Неа, не ставится там бряк. А вообще нужно ли создавать CodeEvent в конструкторе TSelectComp ведь я его нигде не создаю, а использую только так
if TSelectComp(SelectedComponent).Code Event._OnCreate = nil then

В таком случае ведь не используется конструктор

ReportCube · 06.04.2014, 18:05

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

ReportCube · 06.04.2014, 18:12

Уберите из конструктора virtual;

DarkSmile · 06.04.2014, 18:46

Убрал virtual, все по прежнему

ReportCube · 06.04.2014, 18:54

Я не гадалка, чесслово. Или код - или ломайте голову сами

DarkSmile · 06.04.2014, 19:00

А какой еще нужен код, все что касается этого класса я предоставил

ReportCube · 06.04.2014, 19:35

Вот беда-то какая. А у меня при тестировании все значения равны nil. С чего бы?

Код:

procedure TFormTest.ButtonTestClick(Sender: TObject);
var
  SelectComp: TSelectComp;
begin
  SelectComp := TSelectComp.Create;
  if SelectComp.CodeEvent._OnShanage <> nil then
    Sleep(0);
  SelectComp.Free;
end;

phomm · 06.04.2014, 19:45

Цитата:

Сообщение от DarkSmile

А какой еще нужен код

Весь проект

06.04.2014, 19:35	#19
ReportCube Форумчанин Регистрация: 11.03.2011 Сообщений: 426	Вот беда-то какая. А у меня при тестировании все значения равны nil. С чего бы? Код: `procedure TFormTest.ButtonTestClick(Sender: TObject); var SelectComp: TSelectComp; begin SelectComp := TSelectComp.Create; if SelectComp.CodeEvent._OnShanage <> nil then Sleep(0); SelectComp.Free; end;`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Организация программ с использованием процедур .использованием параметров-значений и параметров переменных	Фрейтор 40-500	Помощь студентам	0	02.11.2012 21:58
Организация программ с использованием процедур .использованием параметров-значений и параметров переменных	Фрейтор 40-500	Помощь студентам	6	02.11.2012 21:46
Обнуление переменных	Dmitry1983	PHP	8	25.06.2011 19:13
обнуление	kuzjaca	Microsoft Office Access	7	24.02.2011 10:03
обнуление счетчика в бд	Tanuska___:)	БД в Delphi	2	22.01.2009 23:10

06.04.2014, 17:28	#11
DarkSmile Пользователь Регистрация: 14.03.2013 Сообщений: 24	Чет не ставится

06.04.2014, 17:35	#12
ReportCube Форумчанин Регистрация: 11.03.2011 Сообщений: 426	Ниже создания напишите что-то вроде этого и уже там поставьте точку останова (F5): if CodeEvent <> nil then Sleep(0);

06.04.2014, 17:59	#13
DarkSmile Пользователь Регистрация: 14.03.2013 Сообщений: 24	Неа, не ставится там бряк. А вообще нужно ли создавать CodeEvent в конструкторе TSelectComp ведь я его нигде не создаю, а использую только так if TSelectComp(SelectedComponent).Code Event._OnCreate = nil then В таком случае ведь не используется конструктор

06.04.2014, 18:05	#14
ReportCube Форумчанин Регистрация: 11.03.2011 Сообщений: 426	Если не ставится бряк, следовательно Ваш код нигде не используется и компилятор отключает на него ссылки.

06.04.2014, 18:12	#15
ReportCube Форумчанин Регистрация: 11.03.2011 Сообщений: 426	Уберите из конструктора virtual;

06.04.2014, 18:46	#16
DarkSmile Пользователь Регистрация: 14.03.2013 Сообщений: 24	Убрал virtual, все по прежнему

06.04.2014, 18:54	#17
ReportCube Форумчанин Регистрация: 11.03.2011 Сообщений: 426	Я не гадалка, чесслово. Или код - или ломайте голову сами

06.04.2014, 19:00	#18
DarkSmile Пользователь Регистрация: 14.03.2013 Сообщений: 24	А какой еще нужен код, все что касается этого класса я предоставил