掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字列検索って出来ますか？ (ID：2975)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
レスありがとうございます。 両方試してみて、正規表現の方が後々良いかなと思い、正規表現を使うことにしました。にしのさん、たかみちえさん、ありがとうございました。 で、BRegExp.pasをDelphi6で使うと互換性の関係でエラーになる とのことだったので、コンパイラの文法オプションで「型付定数への代入」に チェックを入れたところ、動作しました。 ヘルプからコピーしてきた文はうまくいったのですが、↓だと 「Project1.exeがEAccessViolationクラスの例外を生成しました。」 というエラーが出ます。何故でしょう？ procedure TForm1.Button1Click(Sender: TObject); var pBRegExp: PTBRegExpRec; msg: array [0..255] of Char; s,t: string; sp, ep: PPChar; begin pBRegExp:=nil; s := ',$rw,$kl,$tw,$om) = '; BMatch('m/,$rw,$kl.*)/',PChar(s),PChar(s)+Length(s),pBRegExp,@msg[0]); sp:=pBRegExp^.startp; ep:=pBRegExp^.endp; while Integer(sp^)<Integer(ep^) do begin SetLength(t, Integer(ep^)-Integer(sp^)); Move(sp^^, PChar(t)^, Integer(ep^)-Integer(sp^)); Memo1.Lines.Add(t); Inc(sp); Inc(ep); end; // '123;456;789' // '123' // '456' // '789' BRegFree(pBRegExp); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.