掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TMemoの文末の、繰り返された改行を消したい (ID:43642)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
XE またはそれ以降なら、正規表現で消せます。 uses に RegularExpressions を追加して、 Memo1.Lines.Text := TRegEx.Replace(Memo1.Lines.Text, '(\r\n)+$', '', [roMultiLine]); 最後に改行を一つ残すなら、 Memo1.Lines.Text := TRegEx.Replace(Memo1.Lines.Text, '(\r\n)+$', #$0D#$0A, [roMultiLine]); です。 Delphi 2005〜2010 であれば、SkRegExp / SkRegularExpressions が使えます。 http://skregexp.komish.com/ uses に SkRegularExpressions を追加して使います。 コードは先述のものと全く同じになります。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.