Поле предка

← →
Kolan © (2004-11-06 00:21) [0]

Есть у меня класс:
type TCalculation = class private FExpressions: TStringList; procedure SetExpressions(const Value: TStringList); function GetExpressions: TStringList; protected procedure ExtractAges(var LAge,RAge: Extended); function EvaluateFunction(X: Extended): Extended; function RoundEx(X: Extended; Precision: Int64): Extended; public constructor Create; function Evaluate: string; published property Expressions: TStringList read GetExpressions write SetExpressions;

И есть его наследник
type TOneRootFinder = class(TCalculation) private FExpressions: TStringList; protected function CheckFields: Integer; function EvalByDixotomiyaMethod: string; function CheckAccyracy(NextRoot, Root: Extended): Integer; public constructor Create; function Evaluate: string; published end;
У наследника должна быть функция работающая с FExpressions: TStringList;
как "добраться" до этого поля

← →
GuAV © (2004-11-06 00:27) [1]

Переместить поле в секцию protected либо писать наследника в том же модуле.

← →
GuAV © (2004-11-06 00:30) [2]

Не заметил поля FExpressions: TStringList; в TOneRootFinder. Раз оно там есть, до него можно добраться из наследника. Конфликты имен приводят к скрытию полей, добраться до скрытого из наседника можно TCalculation(self).FExpressions

← →
Kolan © (2004-11-06 00:33) [3]

> Не заметил поля FExpressions: TStringList; в TOneRootFinder.

Не его там не должно быть, скопировал нето - пробовал по разному.
Как лучьше (правильней) вроде поля должны быть всегда в private

← →
Kolan © (2004-11-06 00:36) [4]

А при TCalculation(self).FExpressions FExpressions все равно из private убрать надо?

← →
Ученик (2004-11-06 00:42) [5]

TCalculation = class
...
protected
property MyExpressions: TStringList read FExpressions;

← →
GuAV © (2004-11-06 00:46) [6]

Kolan © (06.11.04 0:36) [4]
А при TCalculation(self).FExpressions FExpressions все равно из private убрать надо?
Это вообще снимается если
Kolan © (06.11.04 0:33) [3]
Не его там не должно быть, скопировал нето

Kolan © (06.11.04 0:33) [3]
Как лучьше (правильней) вроде поля должны быть всегда в private

Ученик (06.11.04 0:42) [5] уже ответил.

Также IMHO лучше объявить Expressions как TStrings (создавать при этом всё равно TStringList.Create).

> Также IMHO лучше объявить Expressions как TStrings

> protected
> property MyExpressions: TStringList read FExpressions;

Имелось ввиду еще доно свойство в добавок к моему property Expressions: TStringList read GetExpressions write SetExpressions?

И заодно как к MyExpressions: TStringList read FExpressions;
теперь обратится?

:) сам понял. Благо дарю. :)

Поле предка Найти похожие ветки