名前 題名 ▼ Mr.XRAYさん > ># 某掲示板の質問の文章は,私の能力では理解できません. > > Substitute というメソッドを使っているようなんですが, > これは,文章全体を置き換えるのではないかと思うのですが... > どういう場面で使うのかは分かりません. > > uses > SkRegExpW; > > {$R *.dfm} > > procedure TForm1.FormCreate(Sender: TObject); > begin > Memo1.Lines.Text := 'テスト用\n\nのテキ\nスト'; > end; > > procedure TForm1.Button1Click(Sender: TObject); > var > LRegExp : TSkRegExp; > begin > LRegExp := TSkRegExp.Create; > try > LRegExp.Expression := '(\\n+)'; > if LRegExp.Exec (Memo1.Lines.Text) then begin > Memo1.Lines.Text := LRegExp.Substitute('改行記号は$1です'); > end; > finally > LRegExp.Free; > end; > end; > > ↑ 小宮さんのユニットを使用した例です. > Windows 7 U64(SP1) + Delphi XE(UP1) Pro でやってみました. > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link