改行を１文字としてカウント

Prius  2007-05-07 11:51:58  No: 26063  IP: 192.*.*.*

文字数をカウントしようとしています。

Length(WideString(String))
上記のように行った場合、改行文字が2文字として
カウントされてしまいます。

何か良い改善策はないでしょうか？

編集 削除
deldel  2007-05-07 11:57:02  No: 26064  IP: 192.*.*.*

以下のような感じでいいかと思います。

  Str := '12345' + #13#10 + '67890';
  showmessage(Str);
  showmessage(IntToStr(Length(Str)));

  Str := StringReplace(Str, #13#10, #13, [rfReplaceAll]);
  showmessage(Str);
  showmessage(IntToStr(Length(Str)));

編集 削除