Внутреннему класу узнать параметр класа в который он входит

← →
zorik © (2006-10-11 11:06) [0]

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

Блок общий
TBlock = class private FShortDescr: String; public constructor Create; destructor Destroy; override; property ShortDescr: String read FShortDescr write FShortDescr; procedure Draw; virtual; abstract; end; constructor TZLasBlock.Create; begin inherited Create; FShortDescr :=""; end;

Блок "Версия"
TVersBlock = class(TBlock) private public constructor Create; destructor Destroy; override; end;

общий клас
TZFile = class private FVers: Integer; FVersBlock: TVersBlock; ... public constructor Create; ... end; constructor TZFile Create; begin inherited Create; FVers := 0; FVersBlock := TVersBlock.Create; end;

в реализации метода TVersBlock.Create нужно реализовать следущее:
case FVers of 1: FShortDescr := "Версия 1.0"; ...

но о версии TVersBlock не знает

← →
jack128 © (2006-10-11 12:26) [1]

zorik © (11.10.06 11:06)
но о версии TVersBlock не знает
ну передай в конструктор TVersBlock эту версию, в чем проблема?

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

Внутреннему класу узнать параметр класа в который он входит Найти похожие ветки