-3

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;
4

1 に答える 1

1

publicTOvcFileViewer.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;
于 2013-10-30T20:40:00.387 に答える