Delphi TStrings

TStrings 是 Delphi 中常用的字符串容器，它封装了常见的字符串操作，例如添加、删除、清空、排序等等。TStrings 是一个抽象类，它不能直接实例化，而是要通过其子类来操作。

TStrings 的子类

Delphi 中有几个 TStrings 的子类，它们分别是：

• TStringList：最常用的子类，可以看作是一个动态数组，支持排序、查找等功能，适用于管理范围较小的字符串列表。
• TComboBox.Strings：ComboBox 组件内部使用的子类。
• TListBox.Items：ListBox 组件内部使用的子类。
• TMemo.Lines：Memo 组件内部使用的子类。
• TArray<string>：Delphi 10.4 新增的 TStrings 的泛型版本，可以看作是 TStringList 的替代品，但在性能、内存占用等方面有所改进。

我们可以通过继承 TStrings 类，来实现自定义的字符串容器，例如可以实现一个支持快速查找、高效排序的 TStrings 子类。

TStrings 的常用方法和属性

方法

• Add：向字符串列表中添加字符串。
• AddObject：向字符串列表中添加字符串，并与之关联一个对象。
• Insert：在字符串列表的指定位置插入字符串。
• InsertObject：在字符串列表的指定位置插入字符串，并与之关联一个对象。
• Delete：删除字符串列表中的指定字符串。
• Clear：清空字符串列表。
• IndexOf：返回指定字符串的索引，若未找到则返回 -1。
• IndexOfObject：返回与指定对象关联的字符串的索引，若未找到则返回 -1。
• Sort：对字符串列表进行排序。
• CaseSensitive：设置或获取字符串列表是否区分大小写。
• Text：获取或设置字符串列表中包含的所有字符串，用于将整个字符串列表保存到文件或从文件读取整个字符串列表。
• CommaText：获取或设置字符串列表中包含的所有字符串，并以逗号分隔，用于将整个字符串列表保存到文件或从文件读取整个字符串列表。

属性

• Count：获取字符串列表中字符串的个数。
• Strings：获取或设置指定位置的字符串。
• Objects：获取或设置指定位置的字符串关联的对象。

示例

以下是一个使用 TStringList 的示例：

var
  strList: TStringList;
begin
  strList := TStringList.Create;
  try
    strList.Add('hello');
    strList.Add('world');
    strList.Insert(1, 'delphi');
    strList.Delete(0);
    strList.Sort;
    if strList.IndexOf('world') >= 0 then
    begin
      ShowMessage('world found');
    end;
  finally
    strList.Free;
  end;
end;

总结

TStrings 是 Delphi 中常用的字符串容器，它提供了许多常用的字符串操作方法和属性。在实际开发中，我们可以根据需要选择不同的 TStrings 子类来管理字符串列表，或者自定义一个 TStrings 的子类来满足特定的需求。