掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
FindDialogとReplaceDialogの処理を共通化するには？ (ID:12378)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Sender(TObjectクラス)には FindTextというメンバ関数はないので、 エラーになるのは当然ということで…なりすまし(‾〜‾) if Sender is TFindDialog then SelLength := Length((Sender as TFindDialog).FindText); // 検索 if Sender is TReplaceDialog then SelLength := Length((Sender as TReplaceDialog).FindText); // 置換
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.