看源代码出现个问题

Question

TComponet类的procedure TComponent.DefineProperties(Filer: TFiler);
var
  Ancestor: TComponent;
  Info: Longint;
begin
  Info := 0;
  Ancestor := TComponent(Filer.Ancestor);[color=#FF0000][/color]
  if Ancestor <> nil then Info := Ancestor.FDesignInfo;
  Filer.DefineProperty('Left', ReadLeft, WriteLeft,
    LongRec(FDesignInfo).Lo <> LongRec(Info).Lo);
  Filer.DefineProperty('Top', ReadTop, WriteTop,
    LongRec(FDesignInfo).Hi <> LongRec(Info).Hi);
end;
在它的派生类中也经常发现这样的调用
比如:TCheckBox(_)等。这个是咋意思呀 
请指点

Answer 1

 Ancestor := TComponent(Filer.Ancestor);

Answer 2

Ancestor := TComponent(Filer.Ancestor); 

Answer 3

DefineProperties是TPersistent提供的一个虚方法，不同的子类进行不同的覆盖，用于把类的非published的属性数据持久化到文件里（IDE用它来把上述数据存进DFM中），同时也负责把这些持久化了的数据反序列化回对象当中。

Answer 4

哦，我什么就看不出来呢 》
真郁闷
学习ing