Delphi 容器类 TStringList 常用方法与属性（取值、赋值、排序）

七葛小矮人 發表於 2020-12-2 09:33:00

Delphi 容器类 TStringList 常用方法与属性（取值、赋值、排序）

Delphi 容器类 TStringList 常用方法与属性（取值、赋值、排序）
1、常用方法和属性
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">var
List: TStringList;
i: Integer;
begin
List := TStringList.Create;
List.Add('Test1'); {添加}
List.Add('Test2');
List.Exchange(0,1); {置换}
List.Insert(0,'Test3'); {插入}
i := List.IndexOf('Test1'); {首次出现的位置}
List.Sort; {排序}
List.Sorted := True; {指定排序}
List.Count; {总数}
List.Text; {文本集合}
List.Delete(0); {删除, 0是第一个数据}
List.LoadFromFile('c:\test.txt');{打开}
List.SaveToFile('c:\test.txt'); {保存}
List.Clear; {清空}
List.Free; {释放}
end;　　</pre>
</div>
2、读字符
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">var
List: TStringList;
begin
List := TStringList.Create;
List.CommaText := 'aa,bb,cc';
ShowMessage(IntToStr(List.Count)); //3
ShowMessage(List); //aa
List.Free;
end;
</pre>
</div>
3、置换符号（分隔符）
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">var
List: TStringList;
begin
List := TStringList.Create;
List.Delimiter := '|';
List.DelimitedText := 'aa|bb|cc';
ShowMessage(IntToStr(List.Count)); //3
ShowMessage(List); //aa
List.Free;
end;
</pre>
</div>
 
4、Name=Value 取值、赋值
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">var
List: TStringList;
begin
List := TStringList.Create;

List.Add('aa=100');
List.Add('bb=200');
List.Add('cc=300');

ShowMessage(List.Names); //bb
ShowMessage(List.ValueFromIndex); //200
ShowMessage(List.Values['bb']); //200

//通过ValueFromIndex 赋值:
List.ValueFromIndex := '400';
ShowMessage(List); //bb=400

//通过 Values 赋值:
List.Values['bb'] := '500';
ShowMessage(List); //bb=500

List.Free;
end;
</pre>
</div>
5、忽略重复值
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">var
List: TStringList;
begin
List := TStringList.Create;

List.Add('aa');

List.Sorted := True; //先指定排序
List.Duplicates := dupIgnore; //重复值忽略

List.Add('aa');

ShowMessage(List.Text); //aa

List.Free;
end;
</pre>
</div>
List.Duplicates 个可选值:
<ul>
<li>dupIgnore: 放弃;</li>
<li>dupAccept: 结束;</li>
<li>dupError: 提示错误.</li>
</ul>
6、排序
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">{排序函数}
function DescCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result := -AnsiCompareText(List, List);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
List: TStringList;
begin
List := TStringList.Create;
List.Add('bb');
List.Add('cc');
List.Add('aa');
//未排序
ShowMessage(List.Text); //bb cc aa
//排序
List.Sort;
ShowMessage(List.Text); //aa bb cc
//倒排序
List.CustomSort(DescCompareStrings); //调用排序函数
ShowMessage(List.Text); //cc bb aa
end;
</pre>
</div>
　　
 创建时间：2020.12.02　　更新时间：
 

</div>
<div id="MySignature" role="contentinfo">
博客园滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助，谢谢！ 
来源：https://www.cnblogs.com/guorongtao/p/14072007.html

頁: [1]

琼殿技术论坛's Archiver

Delphi 容器类 TStringList 常用方法与属性（取值、赋值、排序）