end;
function ttextfilter.getendoftext: boolean;
begin
result := textstream.getendoftext;
end;
function ttextfilter.gettextstream: ttextstream;
begin
result := ftextstream;
end;
function ttextfilter.readline: string;
begin
result := textstream.readline;
end;
procedure ttextfilter.settextstream(value: ttextstream);
begin
if value <> ftextstream then
begin
if ownstextstream then ftextstream.free;
ftextstream := value;
end;
end;
