delphi 分割字符串获取一个数组

admin

1. uses
   
2.   Classes, SysUtils;
   
3. 
   
4. var
   
5.   Str: string;
   
6.   StrList: TStringList;
   
7.   StringArray: TArray<string>;
   
8.   i: Integer;
   
9. begin
   
10.   Str := '这里是需要分割的字符串，使用分隔符';
    
11.   StrList := TStringList.Create;
    
12.   try
    
13.     // 设置分隔符，例如空格、逗号等
    
14.     StrList.Delimiter := ' ';
    
15.     // 将字符串按分隔符分割
    
16.     StrList.DelimitedText := Str;
    
17.     // 将分割后的字符串列表转换为数组
    
18.     StringArray := StrList.ToArray;
    
19.    
    
20.     // 输出结果
    
21.     for i := 0 to High(StringArray) do
    
22.       Writeln(StringArray[i]);
    
23.   finally
    
24.     StrList.Free; // 释放TStringList对象
    
25.   end;
    
26. end.

复制代码

admin

1. function SplitString(const Input, Delimiter: string): TArray<string>;
   
2. var
   
3.   StringList: TStringList;
   
4.   i: Integer;
   
5. begin
   
6.   StringList := TStringList.Create;
   
7.   try
   
8.     StringList.Delimiter := Delimiter;
   
9.     StringList.StrictDelimiter := True; // 避免将空格作为分隔符
   
10.     StringList.DelimitedText := Input;
    
11.     SetLength(Result, StringList.Count);
    
12.     for i := 0 to StringList.Count - 1 do
    
13.       Result[i] := StringList[i];
    
14.   finally
    
15.     StringList.Free;
    
16.   end;
    
17. end;

复制代码

1. var
   
2.   MyArray: TArray<string>;
   
3.   i: Integer;
   
4. begin
   
5.   MyArray := SplitString('Apple;Orange;Banana', ';');
   
6.   for i := 0 to High(MyArray) do
   
7.     ShowMessage(MyArray[i]);
   
8. end;

复制代码