FindDialogとReplaceDialogの処理を共通化するには？ (ID:12377)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

たびたびお世話になります。
FindDialogとReplaceDialogの処理のうち、検索の部分を共通化したいと思っております。こんな感じです。

//置き換え（ダイアログの検索キー）
procedure TForm1.ReplaceDialog1Find(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
    １．検索プロシジャ呼び出し(Sender);
    ２．文字列の選択があれば置き換え処理
        ・・・・・・・・・・
    SelLength := Length(ReplaceDialog1.FindText);  //エラーにならず
end;

//検索（ダイアログの検索キー）
procedure TForm1.FindDialog1Find(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
    検索プロシジャ呼び出し(Sender);
       ・・・・・・・・・
    SelLength := Length(FindDialog1.FindText); //ここではエラーにならず
end;

//検索プロシジャ呼び出し（これから作りたい検索共通処理）
procedure TForm1.xxxxxxxxxxxx(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
      SelLength := Length(Sender.FindText);
                          ^^^^^^
end;
//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
"Sender"にオブジェクト(FindDialog1/ReplaceDialog1)が設定されているので
(Sender.classNameで確認）それぞれイベント処理で記述していた
検索時：SelLength := Length(FindDialog1.FindText);
置換時：SelLength := Length(ReplaceDialog1.FindText);  を参考に

SelLength := Length(Sender.FindText);  としてみましたが
エラー：未定義の識別子"FindText"となってしまいます。

なにを、どこで定義したらよいのでしょうか？  どうかお願い致します。

←解決時は質問者本人がここをチェックしてください。

戻る