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

Prius 2007-05-07 20:51:58 No: 26063

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

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

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

deldel 2007-05-07 20:57:02 No: 26064

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

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

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