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

帆帆资源网 · 发表于 2024-2-26 21:26:55

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

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

方法一：使用 TStringList 的 DelimitedText 属性

var
StringList: TStringList;
InputString: string;
begin
StringList := TStringList.Create;
try
InputString := 'Apple,Banana,Orange';
StringList.DelimitedText := InputString; // 使用 DelimitedText 属性分割字符串
// 遍历列表并打印每个分割后的字符串
for var I := 0 to StringList.Count - 1 do
Writeln(StringList[I]);
finally
StringList.Free;
end;
end;

复制代码

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

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

复制代码

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

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

var
StringList: TStringList;
InputString: string;
Substring: string;
begin
StringList := TStringList.Create;
try
InputString := 'Apple,Banana,Orange';
while InputString <> '' do
begin
Substring := Trim(ExtractWord(1, InputString, [','])); // 使用 ExtractWord 函数提取第一个子字符串
StringList.Add(Substring); // 将子字符串添加到 TStringList
Delete(InputString, 1, Length(Substring) + 1); // 删除已提取的子字符串和分隔符
end;
// 遍历列表并打印每个分割后的字符串
for var I := 0 to StringList.Count - 1 do
Writeln(StringList[I]);
finally
StringList.Free;
end;
end;

复制代码

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

		自动登录	找回密码
密码			立即注册

[Delphi教程] delphi中，tstringlist分割字符串方法集锦示例

相关帖子

客服中心

投诉建议