掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字列から空行を削除するには？ (ID：7173)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんなのを作っていました。文字列が大きいと遅いと思います。細かくはチェックしていません。 function DelEmptyLine(const str: String): String; var s: String; p: PCHAR; prev: Char; begin s := AdjustLineBreaks(str, tlbsLF);//#$Aに変更 p := PCHAR(s); Result := ''; prev := ' '; while p^=#10 do Inc(p); while p^ <> #0 do begin if (prev=#10) and (p^=#10) then begin Inc(p); Continue; end; Result := Result + p^; prev := p^; Inc(p); end; Result := AdjustLineBreaks(Result); end; 作って気がついたのですが、文字列最後の改行を、最後に空行があると見なすのでしょうか。 # 上に書いたプロシージャでは、最後の改行は空行とは見なしていません。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.