delphi - 根据分隔符将字符串拆分为字符串数组

Question

我正在尝试找到一个 Delphi 函数，它将根据分隔符将输入字符串拆分为字符串数组。我通过搜索网络找到了很多东西，但似乎都有自己的问题，而且我无法让它们中的任何一个工作。

我只需要分割一个字符串，例如:“word:doc,txt,docx” 转换为基于 ':' 的数组。结果将是['word', 'doc,txt,docx']。我怎样才能做到这一点？

Answer 1

您可以使用 TStrings.DelimitedText 属性来分割字符串

检查此示例

program Project28;

{$APPTYPE CONSOLE}

uses
  Classes,
  SysUtils;

procedure Split(Delimiter: Char; Str: string; ListOfStrings: TStrings) ;
begin
   ListOfStrings.Clear;
   ListOfStrings.Delimiter       := Delimiter;
   ListOfStrings.StrictDelimiter := True; // Requires D2006 or newer.
   ListOfStrings.DelimitedText   := Str;
end;


var
   OutPutList: TStringList;
begin
   OutPutList := TStringList.Create;
   try
     Split(':', 'word:doc,txt,docx', OutPutList) ;
     Writeln(OutPutList.Text);
     Readln;
   finally
     OutPutList.Free;
   end;
end.

更新

查看此link了解StrictDelimiter的解释。