Форум: "Основная";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
ВнизВнутреннему класу узнать параметр класа в который он входит Найти похожие ветки
← →
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 эту версию, в чем проблема?
← →
zorik © (2006-10-11 14:23) [2]Проблему решил. Проблема в том, что разные блоки, будут формироватся в зависимости от многих параметров, не только от версии
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.043 c