DELPHI分割字符串

在 Delphi 中，分割字符串可以通过多种方式实现，最常用的方法是使用 TStringList、String.Split 方法（在 Delphi 2009 及以上版本中可用），或者使用正则表达式。以下是几种常见的方法来分割字符串。

1. 使用 TStringList
   TStringList 是一个非常方便的类，可以用来分割字符串并存储结果。

uses
Classes, SysUtils;

procedure SplitString(const Input: string; const Delimiter: Char; List: TStringList);
begin
List.Clear; // 清空列表
List.Delimiter := Delimiter; // 设置分隔符
List.StrictDelimiter := True; // 严格模式，不允许空格
List.DelimitedText := Input; // 分割字符串
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ResultList: TStringList;
I: Integer;
begin
ResultList := TStringList.Create;
try
SplitString('Hello,World,Delphi', ',', ResultList);
for I := 0 to ResultList.Count - 1 do
ShowMessage(ResultList[I]); // 显示每个分割后的字符串
finally
ResultList.Free;
end;
end;
2. 使用 String.Split 方法
如果您使用的是 Delphi 2009 或更高版本，可以使用 String.Split 方法来分割字符串。

procedure TForm1.Button2Click(Sender: TObject);
var
Parts: TArray < string >
Part: string;
begin
Parts := 'Hello,World,Delphi'.Split([',']); // 分割字符串
for Part in Parts do
ShowMessage(Part); // 显示每个分割后的字符串
end;
3. 使用正则表达式
如果需要更复杂的分割逻辑，可以使用正则表达式。需要使用 RegularExpressions 单元。

uses
System.RegularExpressions, System.SysUtils;

procedure TForm1.Button3Click(Sender: TObject);
var
Regex: TRegEx;
Match: TMatch;
Input: string;
begin
Input := 'Hello;World,Delphi:Pascal';
Regex := TRegEx.Create('[;,:\s]+'); // 使用分隔符（;、,、:、空格）

Match := Regex.Match(Input);
while Match.Success do
begin
ShowMessage(Match.Value); // 显示每个分割后的字符串
Match := Match.NextMatch;
end;
end;
总结
以上是几种在 Delphi 中分割字符串的方法。根据您的需求，可以选择最适合的方法。如果只需要简单的分隔符分割，TStringList 和 String.Split 是最常用的选择。如果需要更复杂的逻辑，正则表达式会更灵活。