delphi中，tstringlist分割字符串使用方法示例

源码资源网

delphi中，tstringlist分割字符串使用方法示例

在 Delphi 中，TStringList 类提供了 SplitString 方法来分割字符串并将结果存储在列表中。以下是一个示例，演示了如何在 Delphi 中使用 TStringList 的 SplitString 方法来分割字符串：

1. program TStringListSplitExample;
   
2. {$APPTYPE CONSOLE}
   
3. uses
   
4.   SysUtils, Classes;
   
5. var
   
6.   StringList: TStringList;
   
7.   InputString: string;
   
8. begin
   
9.   // 创建 TStringList 对象
   
10.   StringList := TStringList.Create;
    
11.   try
    
12.     // 输入要分割的字符串
    
13.     InputString := 'Apple,Banana,Orange';
    
14.      // 使用 SplitString 方法分割字符串
    
15.     StringList.SplitString(InputString, ',');
    
16.      // 遍历列表并打印每个分割后的字符串
    
17.     for var I := 0 to StringList.Count - 1 do
    
18.       Writeln(StringList[I]);
    
19.   finally
    
20.     // 释放 TStringList 对象
    
21.     StringList.Free;
    
22.   end;
    
23.    Readln;
    
24. end.

复制代码

在上述示例中，我们首先创建了一个 TStringList 对象。然后，我们定义了一个输入字符串 InputString，其中包含了要分割的字符串。接下来，我们使用 SplitString 方法将输入字符串按照指定的分隔符（这里是逗号）进行分割，并将结果存储在 TStringList 中。最后，我们使用 for 循环遍历 TStringList，并打印每个分割后的字符串。
请注意，在使用完 TStringList 对象后，需要使用 Free 方法释放对象的内存，以避免内存泄漏。