Занятное поведение при наследовании

← →
Jeer © (2007-05-30 10:39) [0]

Есть parent-форма
Есть child-форма

В parent объявлены, например

private
fFieldID: string;
fFieldParentId: string;
fFieldCodeId: string;
fFieldLinkId: string;
fFieldOrdId: string;

и соответствующие public
property pFieldId: string read fFieldId write fFieldId;
property pFieldCodeId: string read fFieldCodeId write fFieldParentId;
property pFieldParentId: string read fFieldParentId write fFieldParentId;
property pFieldLinkId: string read fFieldLinkId write fFieldLinkId;
property pFieldOrdId: string read fFieldOrdId write fFieldOrdId;

а также public метод
procedure m_SetFieldsName(val: string);
в котором делается, например

fFieldID := pTbName + dlm + lst.Values["ID"];
fFieldCodeId := pTbName + dlm + lst.Values["IDC"];
fFieldParentId := pTbName + dlm + lst.Values["PID"];
fFieldLinkId := pTbName + dlm + lst.Values["LINK"];

Этот метод вызывается в child.

И все бы хорошо, но если присвоение в методе идет не как показано, а

pFieldID := pTbName + dlm + lst.Values["ID"];
pFieldCodeId := pTbName + dlm + lst.Values["IDC"];

т.е. обращение к свойствам, то часть свойств-переменных оказываются не инициализированными при вызове метода из child-формы.

Как бы это объяснить ?

← →
default © (2007-05-30 10:48) [1]

property pFieldCodeId: string read fFieldCodeId write fFieldParentId;

Занятное поведение при наследовании Найти похожие ветки