名前
題名
▼ Mr.XRAYさん > > このコードは小宮さんの SkRegExp を使用した例です． > > 動作確認は Windows 7 U64(SP1) + Delphi XE(UP1) Pro です． > > 某掲示板にリンクのある以下をダウンロードしてテストしてみました． > > [TRegExpr library] for Delphi 2-7 > http://regexpstudio.com/TRegExpr/TRegExpr.html > > 動作確認は Windows 7 U64(SP1) + Delphi 6(UP2) Pro です． > > > implementation > > uses > RegExpr; > > {$R *.dfm} > > procedure TForm1.FormCreate(Sender: TObject); > begin > Memo1.Lines.Text := 'テスト用\n\nのテキ\nスト'; > end; > > procedure TForm1.Button1Click(Sender: TObject); > var > LRegExp : TRegExpr; > LDestText : string; > LReplaceStr : string; > begin > LRegExp := TRegExpr.Create; > try > LRegExp.Expression := '\\n'; > > LReplaceStr := sLineBreak; > > LDestText := LRegExp.Replace(Memo1.Lines.Text, LReplaceStr); > Memo1.Lines.Text := LDestText; > finally > LRegExp.Free; > end; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link