father 定义一个Virtual 方法SaveTostream(or other name)
son override 此方法
mydata 对于List中的每个对象调用它的SaveToStream 方法
another 最好有同名方法，否则判断之：
if Tobject(List2) is TAnother then
TAnother(List2).Save...
在savetofile中如何编写代码，用如下方式吗?
writelistbegin
for i:=0 to list1.count-1 do
保存每一个对象
writelistend
writelistbegin
for i:=0 to list2.count-1 do
保存每一个对象
writelistend
在打开文件时，我用如下语句，出错：
reader.readlistbegin
while not reader.endoflist do
begin
生成list1
end;
reader.readlistend;
reader.readlistbegin
while not reader.endoflist do
begin
生成list2
end;
reader.readlistend;
另外，既然将list1 & list2封装在component 中，应该可以用writecomponent和
readcomponent直接读写。
