//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

;