Lazarus - 基于分隔符的解析函数

Question

我正在Lazarus中构建一个小应用程序，需要一个基于下划线的解析函数。例如：

array := Split(string, delimiter);

因此string = "this_is_the_first_post"和分隔符是下划线，导致数组返回为：

array[0] = this
array[1] = is
array[2] = the
array[3] = first
array[4] = post

任何人都知道如何解决这个问题？我尝试了一些代码示例，它总是会抛出错误。

感谢。

Answer 1

您可以使用以下代码：

var
  List1: TStringList;    
begin
  List1 := TStringList.Create;    
  try
    List1.Delimiter := '_';
    List1.DelimitedText := 'this_is_the_first_post';

    ShowMessage(List1[0]);
    ShowMessage(List1[1]);
    ShowMessage(List1[2]);
    ShowMessage(List1[3]);
    ShowMessage(List1[4]);
  finally
    List1.Free;
  end;
end;

在此示例中，输出将显示为一组消息，但您可以获得一般的想法。