关闭

Delphi 中 TStringlist.count 一个奇怪问题及其解决

标签: delphi
3297人阅读 评论(0) 收藏 举报
分类:

        TStringlist 的数据为直接读文本文件获得,或通过从 idTcpHttp 协议从网网站的网页取得。

    var sHtml: TStringList;

    sHtml := TStringList.Create;
    sHtml.Add(数据);
    iCouter := sHtml.Count;

    虽然数据里有多行文本,这时 iCouter 的值总是为 1!为了绕过这个问题,加一个 Momo 控件,修改为以下语句:

    MemoHtml.Lines.Clear;
    MemoHtml.Text := sHtml.Text;
    iCouter := MemoHtml.Lines.Count;

    就能正确取到文本的行数。进一部分析发现,只要从文本文件获取的字符串里有回车、换行符,

TStringList.Count 就不能取得正确的行数。不知道本来就是这个特性,还是 Delphi7.0 的 Bug?

    解决:

    sHtml.Text := (数据);
    iCouter := sHtml.Count;

    即可。TStringList.Add 方法不处理回车换行。
   
    电脑学习网 http://www.why100000.com
    网眼 张庆  2007-9-18 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1358761次
    • 积分:21066
    • 等级:
    • 排名:第371名
    • 原创:511篇
    • 转载:26篇
    • 译文:3篇
    • 评论:2476条
    最新评论