掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
正規表現を使った検索（制御文字） (ID:42766)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Atchoum さん、ありがとうございます そうですね「\n」自体はヒットしませんが一応上記の「^Delphi」は 正常に動作するようです function GetLineBreak(S:string):integer; var Collection:TMatchCollection; begin Collection:=TRegEx.Matches(S,'\n',[roMultiLine]); Result:=Collection.Count; end; var GetLineBreakCount:integer; for Match in TRegEx.Matches(RichEdit1.Text, Edit1.Text, [roIgnoreCase,roMultiLine]) do begin AStr := Match.Value; ALen := Match.Length; if (ALen > 0) {and (Trim(AStr) <> '')} then begin if Match.Index>0 then begin GetLineBreakCount:=GetLineBreak(Copy(RichEdit1.Text, 0, Match.Index-1)); // Memo1.Lines.Add(IntToStr(GetLineBreakCount)); CurPos :=Match.Index-1-GetLineBreakCount; end; ……(ry とりあえず解決とさせていただきます ありがとうございました
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.