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

原创 2007年09月19日 14:19:00

        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 

相关文章推荐

delphi TStringList 遍历操作

delphi TStringList 遍历操作

TStringList 常用方法与属性

TStringList 常用方法与属性: var   List: TStringList;   i: Integer; begin   List := TStringList.Create;...

delphi中TMemo和TStringList保存文本文件TXT时去除每行后面回车符(#13)的方法

//字符串保存为文件 function StringToFile(mString: string; mFileName: TFileName): Boolean; { 返回字符串保存到文件是否成功...

Delphi容器类之---TList、TStringList、TObjectList,以及一个例程的代码分析

看了这里标题,大家可能以为我会谈TListBox控件,那就错了。我要谈的是Delphi提供给我们的具有列表性质的类:TStringList、TList和TObjectList。TStringList用...
  • my98800
  • my98800
  • 2017年04月14日 08:38
  • 546

Delphi中TStringList类常用属性方法详解

//TStringList 常用方法与属性: var   List: TStringList;   i: Integer; begin   List := ...
  • wmqdn
  • wmqdn
  • 2012年08月11日 14:09
  • 464

Delphi TStringList的用法

TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。 TStringList 常用方法与属性: var   List: TStringList;   i: Integ...

Delphi中TStringList类常用属性方法详解

//TStringList 常用方法与属性: var   List: TStringList;   i: Integer; begin   List := TStringList.Crea...

Delphi的TStringList类使用详解

TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Crea...
  • xfaw
  • xfaw
  • 2012年09月11日 17:11
  • 339

114、delphi TStringList的用法

TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。 常规的用法大家都知道,现在来讨论它的一些高级的用法。 先把要讨论的几个属性列出来: 1、CommaText 2、D...
  • shRootm
  • shRootm
  • 2012年06月13日 09:37
  • 277

Delphi TStringList 扩展

  • 2013年01月31日 11:27
  • 88KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi 中 TStringlist.count 一个奇怪问题及其解决
举报原因:
原因补充:

(最多只允许输入30个字)