根据定界符将字符串拆分为字符串数组

Question

我正在尝试找到一个Delphi函数，该函数会将输入字符串分成基于定界符的字符串数组。我在Google上找到了很多东西，但似乎所有人都有自己的问题，而且我还无法解决其中的任何问题。我只需要将像这样的字符串拆分为 "word:doc,txt,docx"基于'：'的数组。结果将是 ['word', 'doc,txt,docx']。有人有他们知道的功能吗？谢谢

Answer 1

无需设计Split功能。它已经存在，请参阅：Classes.ExtractStrings。

通过以下方式使用它：

program Project1;

{$APPTYPE CONSOLE}

uses

  Classes;

var

  List: TStrings;

begin

  List := TStringList.Create;

  try

    ExtractStrings([':'], [], PChar('word:doc,txt,docx'), List);

    WriteLn(List.Text);

    ReadLn;

  finally

    List.Free;

  end;

end.

并充分回答问题；List用元素表示所需的数组：

List[0] = 'word'

List[1] = 'doc,txt,docx'