procedure ttextfilter.writeline(const line: string);
begin
textstream.writeline(line);
end;
在这些实现代码一个非常有兴趣的是:
· 装饰类的行为方法：readline、writeline、getendoftext只是简单的调用相应的textstream方法。
· settextstream方法在分配一个新的值前安全的释放它的方本流。
· 释造函数将textstream := nil，因为在settextstream有可能释放当前的文本流。
现在可能真正的创建一个将文本转换成大写的过滤器了
接口部分的代码：
type
