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
;