delphi中，tstringlist分割字符串方法集锦示例

源码资源网

delphi中，tstringlist分割字符串方法集锦示例

在 Delphi 中，TStringList 类本身并没有提供内置的方法来直接分割字符串。但是，我们可以使用 Delphi 的字符串处理函数和 TStringList 的 Add 方法来实现字符串分割。以下是一些常用的方法示例：

方法一：使用 TStringList 的 DelimitedText 属性

1. var
   
2.   StringList: TStringList;
   
3.   InputString: string;
   
4. begin
   
5.   StringList := TStringList.Create;
   
6.   try
   
7.     InputString := 'Apple,Banana,Orange';
   
8.     StringList.DelimitedText := InputString; // 使用 DelimitedText 属性分割字符串
   
9.     // 遍历列表并打印每个分割后的字符串
   
10.     for var I := 0 to StringList.Count - 1 do
    
11.       Writeln(StringList[I]);
    
12.   finally
    
13.     StringList.Free;
    
14.   end;
    
15. end;

复制代码

方法二：tstringlist分割字符串方法Delimiter
在 Delphi 中，TStringList 类提供了一个名为 Delimiter 的属性，用于指定字符串的分隔符。可以使用该属性将一个包含多个子字符串的字符串拆分为多个独立的字符串。以下是使用 Delimiter 属性分割字符串的示例代码：

1. var
   
2.   StringList: TStringList;
   
3.   InputString: string;
   
4. begin
   
5.   StringList := TStringList.Create;
   
6.   try
   
7.     InputString := 'Apple,Banana,Orange';
   
8.     StringList.Delimiter := ','; // 设置分隔符为逗号
   
9.     StringList.DelimitedText := InputString; // 使用 DelimitedText 属性分割字符串
   
10.     // 遍历列表并打印每个分割后的字符串
    
11.     for var I := 0 to StringList.Count - 1 do
    
12.       Writeln(StringList[I]);
    
13.   finally
    
14.     StringList.Free;
    
15.   end;
    
16. end;

复制代码

在上面的示例中，我们创建了一个 TStringList 对象，并将分隔符设置为逗号（','）。然后，我们将要分割的字符串赋值给 DelimitedText 属性，TStringList 会根据指定的分隔符将字符串拆分为多个子字符串。最后，我们遍历 TStringList 并打印每个分割后的字符串。
请注意，在使用 Delimiter 和 DelimitedText 属性时，TStringList 会自动处理字符串的分割和拼接过程，使得操作更加简单和方便。


方法三：使用 Delphi 的字符串处理函数和 TStringList 的 Add 方法

1. var
   
2.   StringList: TStringList;
   
3.   InputString: string;
   
4.   Substring: string;
   
5. begin
   
6.   StringList := TStringList.Create;
   
7.   try
   
8.     InputString := 'Apple,Banana,Orange';
   
9.     while InputString <> '' do
   
10.     begin
    
11.       Substring := Trim(ExtractWord(1, InputString, [','])); // 使用 ExtractWord 函数提取第一个子字符串
    
12.       StringList.Add(Substring); // 将子字符串添加到 TStringList
    
13.       Delete(InputString, 1, Length(Substring) + 1); // 删除已提取的子字符串和分隔符
    
14.     end;
    
15.     // 遍历列表并打印每个分割后的字符串
    
16.     for var I := 0 to StringList.Count - 1 do
    
17.       Writeln(StringList[I]);
    
18.   finally
    
19.     StringList.Free;
    
20.   end;
    
21. end;

复制代码

以上是三种常用的在 Delphi 中使用 TStringList 分割字符串的方法示例。根据你的需求和喜好，选择适合你的方法来实现字符串分割功能。