有没有办法在Delphi中的TurboPower Orpheus的OvcViewrof中搜索TOvcFileViewer

我有一个程序，可以在TurboPower Orpheus的OvcViewr.pas中使用TOvcFileViewer打开并显示文本文件。我想知道是否有一种方法可以搜索文本，或者我是否必须以不同的方式加载和搜索文件

procedure TForm1.Open1Click(Sender: TObject);  
begin
   if OpenDialog1.Execute then begin
    with Viewer8 do begin
      FileName := OpenDialog1.Filename;
      IsOpen := True;
    end;
end;
end;

---

使用public

TOvcFileViewer.Search

方法

发件人：

从OvcData.pas：

---

什么是Orpheus列表查看器？组件的确切名称是什么？请在删除源链接的问题1中明确说明。你需要我们的帮助吗？-我也是出于同样的原因。您应该阅读并了解它是如何在这里工作的。在查看代码后，我不确定如何使用这些选项。

function Search(const S : string; Options : TSearchOptionSet) : Boolean;
  {-search for a string returning True if found}
  override;

type
  {Search option flags for editor and viewer}
  TSearchOptions = (
    soFind,        {find  (this option is assumed)        }
    soBackward,    {search backwards                      }
    soMatchCase,   {don't ignore case when searching      }
    soGlobal,      {search globally                       }
    soReplace,     {find and replace         (editor only)}
    soReplaceAll,  {find and replace all     (editor only)}
    soWholeWord,   {match on whole word only (editor only)}
    soSelText);    {search in selected text  (editor only)}
  TSearchOptionSet = set of TSearchOptions;