掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TMemo内のテキストを検索する関数はあるのか？ (ID：9398)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
AnsiPos() を使えば簡単につくれます。こんな感じです。 procedure FindAndSel(const Str:string; Memo:TMemo); var iPos:integer; begin iPos := AnsiPos(Str,Memo.Lines.Text); if iPos <> 0 then begin Memo.SelStart := iPos-1; Memo.SelLength := Length(Str); end else ShowMessage('見つかりません'); Memo.SetFocus; end; procedure TForm1.Button1Click(Sender: TObject); begin FindAndSel(Edit1.Text,Memo1); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.