В продолжение темы - http://programmingmindstream.blogspot.ru/2014/04/blog-post_24.html
Как выглядят фильтры?
А очень просто.
Вот примерно так:
Мысль понятна?
По-моему - банально...
Как выглядят фильтры?
А очень просто.
Вот примерно так:
type
TEmptyParaEliminator = class(TElementFilter)
...
THyperlinkEliminator = class(TElementFilter)
...
TPageBreakEliminator = class(TElementFilter)
...
function TEmptyParaEliminator.NeedWriteElement(anElement: Element): Boolean;
begin
Result := not anElement.IsKindOf('TextPara') OR not anElement.Attribute['Text'].Empty;
end;
...
function THyperlinkEliminator.NeedWriteElement(anElement: Element): Boolean;
begin
Result := not anElement.IsKindOf('Hyperlink');
end;
...
function TPageBreakEliminator.NeedWriteElement(anElement: Element): Boolean;
begin
Result := not anElement.IsKindOf('PageBreak');
end;
Мысль понятна?
По-моему - банально...
я бы назвал методы CanWrite а не NeedWrite… если я правильно понял суть
ОтветитьУдалить"я бы назвал методы CanWrite а не NeedWrite…"
Удалитьа в чём ПО СУТИ разница?