причём находясь в "unit Objects" я могу получать тип объекта под интерфейсом таким образом:
Код:
CurrData: IData;
CurrBlock: IBlock;
CurrLine: ILine;
for i:=0 to Programm.Count-1 do begin
// получить интерфейс из TInterfaceList
CurrData := Programm.Items[i];
// получить интерфейс ILine
if CurrData is TLine then
CurrLine := ILine(CurrData)
// получить интерфейс IBlock
else if CurrData is TBlock then
CurrBlock := IBlock(CurrData);
...
но что делать если я нахожусь в другом юните (не в unit Objects),
там не будет видно объектов, а только их интерфейсы.
как различать их ?