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

Question

我有一个程序可以在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; 

Answer 1

使用公开的TOvcFileViewer.Search方法。

从OvcViewr.pas：

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

而且从OvcData.pas：

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;