TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。

常规的用法大家都知道,现在来讨论它的一些高级的用法。

先把要讨论的几个属性列出来:

1、CommaText

2、Delimiter & DelimitedText

3、Names & Values & ValueFromIndex

先看第一个:CommaText。怎么用呢?用代码说话:

const

constr :String = 'aaa,bbb,ccc,ddd';

var

strs :TStrings;

i :Integer;

begin

strs := TStringList.Create;

strs.CommaText := constr;

for i := 0 to Strs.Count-1 do

ShowMessage(Strs[i]);

end;

执行了这段代码后,可以看到ShowMessage显示出来的分别是:aaa bbb ccc ddd。

也就是说,strs.CommaText := constr这一句的作用,就是把一个字符串以','为分割符,分段添加到TStrings中。

那么如果不是以','来分割,又该怎么做呢?现在看第二个例子。使用Delimiter和DelimitedText。

const

constr :String = 'aaa\bbb\ccc\ddd';

var

strs :TStrings;

i :Integer;

begin

strs := TStringList.Create;

strs.Delimiter := '\';

strs.DelimitedText := constr;

for i := 0 to Strs.Count-1 do

ShowMessage(Strs[i]);

end;

可以看到, 显示的效果和第一个例子是一模一样的。解释一下:

Delimiter为分隔符,默认为:','。DelimitedText就是按Delimiter为分隔符的一个串,得到赋值后回把这个字符串按Delimiter的字符添加到TStrings中。

说到这里,有想起一个属性,QuoteChar。其默认值为:'"'(不包括单引号)

有何用呢?看例子:

const

constr :String = '"aaa"\"bbb"\"ccc"\"ddd"';

var

strs :TStrings;

i :Integer;

begin

strs := TStringList.Create;

strs.Delimiter := '\';

strs.DelimitedText := constr;

for i := 0 to Strs.Count-1 do

ShowMessage(Strs[i]);

end;

显示出来的仍然是aaa bbb ccc ddd。为什么不是:"aaa" "bbb" "ccc" "ddd"呢?

再来看一个例子:

const

constr :String = '|aaa|\|bbb|\|ccc|\|ddd|';

var

strs :TStrings;

i :Integer;

begin

strs := TStringList.Create;

strs.Delimiter := '\';

strs.QuoteChar := '|';

strs.DelimitedText := constr;

for i := 0 to Strs.Count-1 do

ShowMessage(Strs[i]);

end;

显示出来的又是aaa bbb ccc ddd。对比一下,应该不难明白吧?这个就不多说了,用得也不多。

但是还要多说一句,当Delimiter为:','而QuoteChar为:'"'时,DelimitedText和CommaText是同等的。

最后要说的三个是:Names & Values & ValueFromIndex。

看看下面的代码:

const

constr :String = '0=aaa,1=bbb,2=ccc,3=ddd';

var

strs :TStrings;

i :Integer;

begin

strs := TStringList.Create;

strs.CommaText := constr;

for i := 0 to strs.Count-1 do

begin

ShowMessage(strs.Names[i]);

ShowMessage(strs.Values[strs.Names[i]]);

ShowMessage(strs.ValueFromIndex[i]);

end;

end;

通过这个例子不难看出:

这个时候strs中的内容是:

0=aaa

1=bbb

2=ccc

3=ddd

而Names中则是:

0

1

2

3

在Values中则是:

aaa

bbb

ccc

ddd

似乎有点不合适宜,但谁也不能否认,delphi还是蛮好用的,这个是最近两天中碰到的问题的解法

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

//TStringList 常用方法与属性:

var

List: TStringList;

i: Integer;

begin

List := TStringList.Create;

List.Add('Strings1');           {添加}

List.Add('Strings2');

List.Exchange(0,1);             {置换}

List.Insert(0,'Strings3');      {插入}

i := List.IndexOf('Strings1');  {第一次出现的位置}

List.Sort;                      {排序}

List.Sorted := True;   {指定排序}

List.Count;                     {总数}

List.Text;                      {文本集合}

List.Delete(0);                 {删除, 0是第一个数据}

List.LoadFromFile('c:\tmp.txt');{打开}

List.SaveToFile('c:\tmp.txt');  {保存}

List.Clear;                     {清空}

List.Free;                      {释放}

end;

//读入字符串

var

List: TStringList;

begin

List := TStringList.Create;

List.CommaText := 'aaa,bbb,ccc,ddd';

//相当于: List.Text := 'aaa' + #13#10 + 'bbb' + #13#10' + 'ccc' + '#13#10' + 'ddd';

ShowMessage(IntToStr(List.Count));  //4

ShowMessage(List[0]);  //aaa

List.Free;

end;

//置换分隔符

var

List: TStringList;

begin

List := TStringList.Create;

List.Delimiter := '|';

List.DelimitedText := 'aaa|bbb|ccc|ddd';

ShowMessage(IntToStr(List.Count));  //4

ShowMessage(List[0]);  //aaa

List.Free;

end;

//类似的哈希表操作法

var

List: TStringList;

begin

List := TStringList.Create;

List.Add('aaa=111');

List.Add('bbb=222');

List.Add('ccc=333');

List.Add('ddd=444');

ShowMessage(List.Names[1]);  //bbb

ShowMessage(List.ValueFromIndex[1]);  //222

ShowMessage(List.Values['bbb']);  //222

//ValueFromIndex 可以赋值:

List.ValueFromIndex[1] := '2';

ShowMessage(List[1]);  //bbb=2

//可以通过 Values 赋值:

List.Values['bbb'] := '22';

ShowMessage(List[1]);  //bbb=22

List.Free;

end;

//避免重复值

var

List: TStringList;

begin

List := TStringList.Create;

List.Add('aaa');

List.Sorted := True;  //需要先指定排序

List.Duplicates := dupIgnore;  //如有重复值则放弃

List.Add('aaa');

ShowMessage(List.Text);  //aaa

//Duplicates 有3个可选值:

//dupIgnore: 放弃;

//dupAccept: 结束;

//dupError: 提示错误.

List.Free;

end;

//排序与倒排序

{排序函数}

function DescCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;

begin

Result := -AnsiCompareText(List[Index1], List[Index2]);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

List: TStringList;

begin

List := TStringList.Create;

List.Add('bbb');

List.Add('ccc');

List.Add('aaa');

//未排序

ShowMessage(List.Text);  //bbb ccc aaa

//排序

List.Sort;

ShowMessage(List.Text);  //aaa bbb ccc

//倒排序

List.CustomSort(DescCompareStrings);  //调用排序函数

ShowMessage(List.Text);  //ccc bbb aaa

//假如:

List.Sorted := True;

List.Add('999');

List.Add('000');

List.Add('zzz');

ShowMessage(List.Text);  //000 999 aaa bbb ccc zzz

end;

本文来自Delphi之窗,原文地址:http://www.52delphi.com

Delphi中TStringList类常用属性方法详解的更多相关文章

  1. 【delphi】TStringList类常用属性方法详解

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

  2. Python的Django框架中forms表单类的使用方法详解

    用户表单是Web端的一项基本功能,大而全的Django框架中自然带有现成的基础form对象,本文就Python的Django框架中forms表单类的使用方法详解. Form表单的功能 自动生成HTML ...

  3. ES6 类(Class)基本用法和静态属性+方法详解

    原文地址:http://blog.csdn.net/pcaxb/article/details/53759637 ES6 类(Class)基本用法和静态属性+方法详解 JavaScript语言的传统方 ...

  4. Java中的equals和hashCode方法详解

    Java中的equals和hashCode方法详解  转自 https://www.cnblogs.com/crazylqy/category/655181.html 参考:http://blog.c ...

  5. 转:Java中的equals和hashCode方法详解

    转自:Java中的equals和hashCode方法详解 Java中的equals方法和hashCode方法是Object中的,所以每个对象都是有这两个方法的,有时候我们需要实现特定需求,可能要重写这 ...

  6. vc中调用Com组件的方法详解

    vc中调用Com组件的方法详解 转载自:网络,来源未知,如有知晓者请告知我.需求:1.创建myCom.dll,该COM只有一个组件,两个接口:   IGetRes--方法Hello(),   IGet ...

  7. Angular.js中处理页面闪烁的方法详解

    Angular.js中处理页面闪烁的方法详解 前言 大家在使用{{}}绑定数据的时候,页面加载会出现满屏尽是{{xxx}}的情况.数据还没响应,但页面已经渲染了.这是因为浏览器和angularjs渲染 ...

  8. Java AtomicInteger类的使用方法详解_java - JAVA

    文章来源:嗨学网 敏而好学论坛www.piaodoo.com 欢迎大家相互学习 首先看两段代码,一段是Integer的,一段是AtomicInteger的,为以下: public class Samp ...

  9. php中读取大文件实现方法详解

    php中读取大文件实现方法详解 来源:   时间:2013-09-05 19:27:01   阅读数:6186 分享到:0 [导读] 本文章来给各位同学介绍php中读取大文件实现方法详解吧,有需要了解 ...

随机推荐

  1. 打印print

    <script type="text/javascript"> function printpreview() { try { var HKEY_Root, HKEY_ ...

  2. windows中 dll 的解读

    背景: dll 可以认为是exe 的分割,分割的好处就是多个exe 可以共用一个dll.所以就有了dll的依赖问题 问题来源: 当我们安装软件时(windows系统下),报出:XX.dll  缺失,或 ...

  3. Ant 脚本打印系统属性变量、ant内置属性

    Ant 脚本打印系统属性变量.ant内置属性 作用 编写ant脚本的时候,经常会引用到系统属性,本脚本用于打印系统常用属性(System.getProperties)与环境变量(Environment ...

  4. 利用Oracle VM VirtualBox部署自己的owncloud存储服务器

    最近在弄文档方面的工作,所以想找个能够自动备份且带历史版本的网盘,找了很久没找到,所以决定自己部署一个私人服务器. 找了很久.试了很久终于确定owncloud能够满足自己的要求,而且还是开源免费的. ...

  5. Selenium2.0介绍

    selenium是一个web的自动化测试工具,和其它的自动化工具相比来说其最主要的特色是跨平台.跨浏览器. 支持windows.linux.MAC,支持ie.ff.safari.opera.chrom ...

  6. xml 和 json 的区别

    JSON(Javascript Object Notation) 是一种轻量级的数据交换格式.易于人阅读和编写.同时也易于机器解析和生成.它基于Javascript Programming Langu ...

  7. 洛谷P1466 集合 Subset Sums

    P1466 集合 Subset Sums 162通过 308提交 题目提供者该用户不存在 标签USACO 难度普及/提高- 提交  讨论  题解 最新讨论 暂时没有讨论 题目描述 对于从1到N (1 ...

  8. vc不用IDE编译方法

    一个EXE是如何形成的 比如一个源程序有以下两个文件. 1.c 1.rc 首先cl.exe 会把源代码编译为1.obj rc.exe会把1.rc编译为1.res link.exe会把1.obj 1.r ...

  9. 使用Apache CXF开发WebServices服务端、客户端

    在前一篇的博客中,我使用Xfire1.x来开发了WebServies的服务端. 但是如果你访问Apache的官网,可以看到xfire已经被合并了. 最新的框架叫做CXF. Apache CXF = C ...

  10. HTML5--》点击显示隐藏内容

    <details>浏览器支持比较差,可以用JavaScript实现这种功能. <!doctype html> <html> <head> <met ...