掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
単語検索法について (ID：13562)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>AnsiPos関数をはじめて使うので使い間違いしてるのではないかなと思い その通り。ヘルプで戻り値を確認すべし。 var kazu: Integer = 0; pPos: PChar = nil; procedure TForm2.Button3Click(Sender: TObject); var buf: PChar; begin GetMem(buf, Length(RichEdit2.Text)+1); try StrPCopy(buf, RichEdit2.Text); if pPos = nil then begin kazu := 0; pPos := buf; end; pPos := AnsiStrPos(pPos, PChar(Edit2.Text)); if pPos <> nil then begin RichEdit2.SelStart := pPos - buf; RichEdit2.SelLength := Length(Edit2.Text); Richedit2.Perform(EM_SCROLLCARET, 0, 0); inc(pPos, Length(Edit2.Text)); inc(kazu); Edit3.Text := IntToStr(kazu)+'個目'; end else begin Edit3.Text := '全部で'+IntToStr(kazu)+'個'; end; finally FreeMem(buf); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.