delphi中，tstringlist使用方法示例

源码资源网

delphi中，tstringlist使用方法示例

在 Delphi 中，TStringList 是一个常用的字符串列表类，它提供了许多用于处理字符串列表的方法。以下是一个示例，演示了如何在 Delphi 中使用 TStringList 类：

1. program TStringListExample;
   
2. {$APPTYPE CONSOLE}
   
3. uses
   
4.   SysUtils, Classes;
   
5. var
   
6.   StringList: TStringList;
   
7. begin
   
8.   // 创建 TStringList 对象
   
9.   StringList := TStringList.Create;
   
10.   try
    
11.     // 添加字符串到列表中
    
12.     StringList.Add('Apple');
    
13.     StringList.Add('Banana');
    
14.     StringList.Add('Orange');
    
15.      // 获取列表中的字符串数量
    
16.     Writeln('Count: ' + IntToStr(StringList.Count));
    
17.      // 遍历列表并打印每个字符串
    
18.     for var I := 0 to StringList.Count - 1 do
    
19.       Writeln(StringList[I]);
    
20.      // 检查列表中是否包含某个字符串
    
21.     if StringList.IndexOf('Banana') >= 0 then
    
22.       Writeln('Banana found in the list')
    
23.     else
    
24.       Writeln('Banana not found in the list');
    
25.      // 排序列表中的字符串
    
26.     StringList.Sort;
    
27.      // 保存列表内容到文件
    
28.     StringList.SaveToFile('fruits.txt');
    
29.   finally
    
30.     // 释放 TStringList 对象
    
31.     StringList.Free;
    
32.   end;
    
33.    Readln;
    
34. end.

复制代码

在上述示例中，我们首先使用  TStringList.Create  创建了一个 TStringList 对象，并使用  Add  方法向列表中添加了几个字符串。然后，我们使用  Count  属性获取列表中的字符串数量，并使用  for  循环遍历列表并打印每个字符串。接下来，我们使用  IndexOf  方法检查列表中是否包含某个特定的字符串。然后，我们使用  Sort  方法对列表中的字符串进行排序。最后，我们使用  SaveToFile  方法将列表的内容保存到一个文本文件中。
请注意，在使用完 TStringList 对象后，需要使用  Free  方法释放对象的内存。这样可以避免内存泄漏。