· textstream、ownsstream是装饰类的构造器的两个参数。
· 实现装饰类重载了readline、writeline、getendoftext三个方法。并加入了实现。
下面是它的实现部分代码:
constructor ttextfilter.create(atextstream: ttextstream; aownsstream: boolean);
begin
inherited create;
textstream := atextstream;
ownsstream := aownsstream;
end;
destructor ttextfilter.destroy;
begin
textstream := nil;
inherited destroy;
