Delphi 容器類 TStringList 常用方法與屬性（取值、賦值、排序）

1、常用方法和屬性

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;　　
 

2、讀字元

var
  List: TStringList;
begin
  List := TStringList.Create;
  List.CommaText := 'aa,bb,cc';
  ShowMessage(IntToStr(List.Count)); //3
  ShowMessage(List[0]); //aa
  List.Free;
end;

3、置換符號（分隔符）

var
  List: TStringList;
begin
  List := TStringList.Create;
  List.Delimiter := '|';
  List.DelimitedText := 'aa|bb|cc';
  ShowMessage(IntToStr(List.Count)); //3
  ShowMessage(List[0]); //aa
  List.Free;
end;
 

4、Name=Value 取值、賦值

var
  List: TStringList;
begin
  List := TStringList.Create;

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

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

  //通過ValueFromIndex 賦值:
  List.ValueFromIndex[1] := '400';
  ShowMessage(List[1]); //bb=400

  //通過 Values 賦值:
  List.Values['bb'] := '500';
  ShowMessage(List[1]); //bb=500

  List.Free;
end;

5、忽略 重複值

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;

List.Duplicates 個可選值:

• dupIgnore: 放棄;
• dupAccept: 結束;
• dupError: 提示錯誤.

6、排序

{排序函式}
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('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;

建立時間：2020.12.02　　更新時間：